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85 el microcomputador 



El único límite del microcomputador M1CRODIG1TAL TK85 es “SU IMAGINACION”. 


BES 


OPCIONALES: 

• Joystick (órgano de comando externo), para juegos de video • Generador de sonido 

• Expansorde memoria de 64 Kbytes RAM • Impresora directa • Programador de 
EPROM • Interface para conexión de impresora profesional (paralela). 

/MICRO DIGITAL TK-05 

Importa y distribuye: ARVOC s.u.i.c.I.i. 

Avda. DIAZ VELÉZ 4147 (1200) Capital Tel.: 981-1980/9212 


que Ud. puede usar 


EXPANSOR 
DE MEMORIA 
de 64 Kbytes RAM 
(opcional) 


• JOYSTICK 

(órgano de comando externo) 
(opcional) 
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* TK85, fue especialmente diseñado y 
construido para que Ud. lo use con extrema simplicidad. 
• Sólo basta consultar su ameno y completo manual 
de instrucciones, en Castellano por supuesto, y Ud. podrá 
aprender computación en forma fácil, rápida y práctica y en lenguaje BASIC, 
• A partir de allí Ud. podrá preparar sus propios programas, o también 
utilizar centenares de programas que existen en el mercado para estudiar: 
matemáticas; física; química; biología; música; catalogar clientes; controlar stocks; 
programar compras y ventas; controlar su cuenta bancada; poner en orden gastos e 
impuestos en su hogar; jugar ajedrez; backgamond; y ¿por qué no? con su exclusivo 
joystick disfrutar de los más fantásticos video juegos: guerra de las galaxias, invasores 
espaciales; etc. y todo lo que Ud. puede imaginar. 


GARANTIA: 6 MESES 


f En venta en comercios de microcomputadores, artículos del hogar, electrónica, fotografía y librerías. ^ 

































MUNDO INFORMATICO 

Importantes novedades. 
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CONQUISTANDO LOS 
DE SAVE/LOAD 

Una de las dificultades de los 
ordenadores del tipo ZX 81 es su 
interface para grabadores a ca- 
sette. Algunos tienen problemas 
para grabar y otros para recupe¬ 
rar el programa. Algunas indica¬ 
ciones que se dan en esta nota 
pueden salvar los inconvenientes. 


PROBLEMAS 
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PROGRAMAS 


CONCURSO 


Submarino. Carrera de caballos. 
Guillotina. Mosquitos. Adivinan¬ 
zas. Calendarlo. Alunizaje. Su¬ 
mas y diversiones para chicos. 
Blorrltmos. Simón. Retorno del 
Jedl. Matemática Básica. Pacman. 
Gráficos 1. 

Páginas 6 a 11,14 a 16,19 a 21, 

23 



Recibimos programas y premiamos con una computa¬ 
dora al mejor. Además, sorteos mensuales de cassettes 
con juegos y de becas para cursos de programación 
basic. Conozca las bases. 
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INTRODUCCION A LA 
COMPUTACION 


APRENDIENDO EL 
LENGUAJE DE 
MAQUINA 

Iniciamos una serie de artículos 
en los cuales explicaremos el 
funcionamiento interno de los mi- 
crocomputadores y cómo pro¬ 
gramar en lenguaje de máquina 
para luego encarar algunos pro¬ 
yectos electrónicos. 
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Si para usted la informática es chino básico no se 
preocupe, porque nosotros le explicaremos de qué se 
trata en un curso que se inicia en este número. 
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CONSULTAS Y SUGERENCIAS 

En esta sección atenderemos todas aquellas consul- 
tasysugerenciasque nuestros lectores deseen realizar. 
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EQUIPOS PARA 
INVESTIGACION 



LA FABRICACION LOCAL 
DE COMPUTADORES 
PROFESIONALES 


IBM Argentina y la Fa¬ 
cultad de Ingeniería de la 
Universidad Nacional de 
Buenos Aires suscribieron 
un acuerdo mediante el 
cual la empresa suminis¬ 
trará sin cargo a la casa de 
altos estudios dos siste¬ 
mas IBM S/1 para la ense¬ 
ñanza y la investigación 
en el área de control de 
procesos industriales, dis¬ 
ciplina que requiere profe¬ 
sionales adecuadamente 
preparados para satisfacer 
las necesidades de actua¬ 
lización y modernización 
de la industria nacional, 
con el fin de hacerla más 
eficiente y competitiva, y 
facilitar su mayor partici¬ 
pación en el mercado mun¬ 
dial. 

Uno de los sistemas se 
empleará en el Departa¬ 
mento de Ingeniería Quí¬ 
mica, que funciona en la 
Ciudad Universitaria, don¬ 
de será dedicado a la en¬ 
señanza del control de pro¬ 
cesos por computadoras, 
así como también a tareas 
de investigación en dicha 
área. El restante se insta¬ 
lará en el Departamento 
de Electrónica que funcio¬ 
na en el edificio de Paseo 
Colón, y se destinará a la 
enseñanza de control de 
procesos, de arquitectura 
de computadoras, y servi¬ 
rá además como apoyo a 
la investigación, desarro¬ 
llo de i nterfaces de control 
y comunicaciones entre 


procesadores de informa¬ 
ción. 

El convenio fue suscrip¬ 
to por el decano de la fa¬ 
cultad de Ingeniería, Julio 
Guibourg, y el gerente de 
Relaciones Externas de 
IBM Argentina, Carlos 
Sanjurjo, durante una ce¬ 
remonia en la que se des¬ 
tacó la importancia de una 
estrecha relación entre la 
universidad y las empre¬ 
sas, tendiente al logro de 
alta calidad en la capaci¬ 
tación de profesionales. 

Cabe recordar que hace 
unos cuatro años la Uni¬ 
versidad Nacional de Bue¬ 
nos Aires y la compañía 
IBM firmaron otro acuerdo 
para el desarrollo de una 
entidad académica desti¬ 
nada a entrenar profesio¬ 
nales de nuestro país en 
técnicas avanzadas de in¬ 
formática, con aplicacio¬ 
nes en áreas de interés 
nacional. Esa iniciativa se 
cristalizó en el Centro de 
Tecnología y Ciencias de 
Sistemas de la Universi¬ 
dad de Buenos Aires 
(CTCS), en el edificio de 
Arenales 1371, de Capital. 
Se creó teniendo en cuen¬ 
ta que existe una deman¬ 
da en continuo crecimien¬ 
to de aplicaciones avanza¬ 
das de procesamiento de 
datos. Pero es aún insufi¬ 
ciente la cantidad de pro¬ 
fesionales de que se dis¬ 
pone para satisfacer esos 
requerimientos. 


Texas Instruments Ar¬ 
gentina continuará este 
año elevando el nivel de 
integración nacional —has¬ 
ta pasar el 50 por ciento— 
del Computador Profesio¬ 
nal TI, que la empresa pro¬ 
duce en el país desde el 
año pasado. Ya cuentan 
con unos 30 proveedores 
locales, que suministran 
desde los elementos más 
simples de embalaje hasta 
partes electrónicas. Muy 
pronto piensan incorporar 
un monitor fabricado en la 
Argentina. 

Otro objetivo de la com¬ 
pañía es mantener el lide¬ 
razgo en las ventas en el 
campo de los computado¬ 
res personales. 

El Computador Profe- 


A mediados de este año 
comenzará sus activida¬ 
des la moderna planta in¬ 
dustrial que está constru¬ 
yendo Epson en la provin¬ 
cia de Catamarca, y en la 
cual fabricará impresoras 
y computadoras de esa 
marca. Se producirán las 
computadoras QX-10 y, 
posteriormente la QX-16 y 
el equipo portátil PX-8, 
ademásde las impresoras. 
Epson Argentina se hará 
cargo del corrtrol,asesora- 
miento y apoyo, de mane¬ 
ra que los productos termi¬ 
nados en el país gocen de 
la altísima confiabilidad 
que caracteriza a esa 
compañía en el mundo. 


sional TI es un avanzado 
equipo orientado a la pe¬ 
queña y mediana empre¬ 
sa, así como al directivo 
que necesita contar con 
información inmediata pa¬ 
ra la toma de decisiones. 
Además cubre las necesi¬ 
dades del empleado ad¬ 
ministrativo especializado 
en diversas actividades. 
Por sus características, 
constituye una valiosa he¬ 
rramienta para los profe¬ 
sionales independientes 
que requieren desarrollar 
sistemas de información, 
cálculos avanzados, pla¬ 
neamiento financiero, gra- 
ficación, evaluaciones es¬ 
tadísticas, sistemas de ar¬ 
chivo y transmisión de da¬ 
tos y procesamiento de la 
voz humana. 


El objetivo de Epson es 
crear un complejo indus¬ 
trial latinoamericano, que 
incluirá la planta que se 
está instalando en Méjico, 
las que se concretarán en 
Argentina, Chile y Colom¬ 
bia, y eventualmente la de 
Brasil, las cuales podrán 
intercambiar y comple- 
meatar sus producciones 
dentro del marco de la ALA- 
DI. Los programas y sis¬ 
temas operativos en cas¬ 
tellano permitirán abaste¬ 
cer a todos los usuarios de 
Latinoamérica y España. 

Representada en la Ar¬ 
gentina por Tecnobeton, 
Epson es una de ías em¬ 
presas más grandes del 



MODERNA 

PLANTA INDUSTRIAL 
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CONGRESO Y EXPOSICION 
DE INFORMATICA 



grupo Seiko, del Japón. 
Este último está constitui¬ 
do por un complejo de 
compañías especializa¬ 
das en relojería, mecanis¬ 
mos de precisión, informá¬ 
tica, ingeniería electróni¬ 
ca, comunicaciones y ro- 
botización. Se trata de la 
productora de relojes más 
grande del mundo. 

A su vez, Epson es la 
empresa más grande a ni¬ 
vel internacional en el 
campo de las impresoras 
para micro y minicompu¬ 
tadoras. El 50 por ciento 
de los equipos emplean, 
como periféricos de im¬ 
presión, en todo el mundo, 
productos Epson, mien¬ 
tras que el 90 por ciento 
de las impresoras de otras 
marcas, calculadoras y ca¬ 
jas registradoras del pla¬ 
neta llevan mecanismos 
de impresión Epson. Pró¬ 
ximamente el grupo nipón 


ampliará el campo de utili¬ 
zación de sus impresoras, 
ya que sus nuevos produc¬ 
tos atenderán las exigen¬ 
cias de todas las computa¬ 
doras, cualquiera sea su 
dimensión y su potencia. 

La expansión de Epson 
se refleja en las siguien¬ 
tes cifras de producción 
mensual: 12 millones de 
mecanismos de impresión, 
10 mil computadoras por¬ 
tátiles, 7 mil computado¬ 
ras QX-10 y un millón de 
pantallas y visores LCD. 

Como dato original cabe 
consignar-que se ha espe¬ 
cializado en computado¬ 
ras cada vez más podero¬ 
sas y pequeñas, como por 
ejemplo la incluida en un 
reloj de muñeca, modelo 
RC-20,con microprocesa¬ 
dor Z-80, 2 KRAM + 8 
KROM de memoria, co¬ 
mandos “touch”, y que 
también puede conectar¬ 
se a equipos mayores. 



Julio César Minuzzi 


Unos dos mil especialis¬ 
tas concurrirán al Tercer 
Congreso Nacional de In¬ 
formática y Teleinformáti¬ 
ca, y más de 80 mil perso¬ 
nas visitarán la muestra 
que se realizará paralela¬ 
mente, Expousuaria. Es¬ 
tos importantes eventos 
tendrán lugar en el hotel 
Sheraton, entre el 13 y el 
18 de mayo próximo. 

Destacados expe rtos 
extranjeros asistirán a la 
reunión de Usuaria ’85, se¬ 
gún anticipó uno de los di¬ 
rectores del comité orga¬ 
nizador, el licenciado Julio 
César Minuzzi, quien tiene 
a su cargo la difusión del 
relevante acontecimiento. 

Uno de los temas que 
mayor interes desperta¬ 
rá es el del avance de los 
robots, que ya “vienen 


marchando a pasos agi¬ 
gantados” sobre la Argen¬ 
tina, precisó Minuzzi. Ya 
hay varias industrias crio¬ 
llas que cuentan con ellos. 
También hay empresas 
que están trabajando en la 
instalación de esos equi¬ 
pos en nuestro país. En el 
caso particular de la com¬ 
pañía Proceda, ha puesto 
en marcha el control nu¬ 
mérico, que es una de las 
partes de la primera etapa 
de la robótica, y se está 
trabajando en el desarro¬ 
llo de “soft” para tal fin. Ya 
hay una gran cantidad de 
firmas que cuentan con 
control numérico, como 
por ejemplo en el sector 
de la industria de las he¬ 
rramientas. 

Con relación a Expo¬ 
usuaria ’85, Minuzzi recor¬ 
dó que el año pasado con¬ 
currieron a visitarlaochen- 
tamil personas,yen lapró- 
xima muestra estiman que 
ese número va a ser supe¬ 
rado ampliamente, debido 
a que vá a haber presenta¬ 
ciones de nuevos produc¬ 
tos. En la anterior exposi¬ 
ción se registró la presen¬ 
cia de muchos estudian¬ 
tes. Ahora se buscará or¬ 
denar la asistencia de los 
jóvenes, de manera de de¬ 
dicarles especialmente la 
mañana. 
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CONQUISTANDO LOS 
PROBLEMAS DE SAVE / LOAD 



PRIMER PASO: 

Asegúrese que los conectores de 
su grabador (jacks) sean compati¬ 
bles con el ordenador, o sea los de 
3.5 mm; además deben estar co¬ 
nectados en forma segura. Algu¬ 
nos hacen contacto sólo si luego 
de enchufarlos hasta el fondo, se 
los retira un poco hacia afuera, de¬ 
bido a la no total compatibilidad en 
el largo del plug. 

Se necesita por lo menos un volu¬ 
men de sonido entre 4 y 6 voltios 
de pico. Si el grabador tiene salida 
de tipo DIN es muy probable que 
no sirva. Este es el caso de algu¬ 
nos grabadores europeos y de los 
decks. Para ello es necesario in¬ 
tercalar entre el grabador y el or¬ 
denador, un pequeño amplifica¬ 
dor/conformador. 

A veces el causante de los proble¬ 
mas es el Pack de ampliación; por 
recalentamiento; algún chip de 
memoria fallado; o por los contac¬ 
tos de conexión oxidados. 

Para el caso de sobrecalenta¬ 
miento, existen algunas solucio¬ 
nes para aquellos que se animan a 
“desarmar”. 

1 - Colocar un disipador de mayor 
superficie al estabilizador de co¬ 
rriente y al ULA. 

2-Cambiar la fuente de alimen¬ 
tación por una mayor capacidad 
de corriente y con un estabilizador 
que baje la tensión a 8 voltios. 


Otros consejos 
generales son: 

1- No mueva el ordenador mien¬ 
tras está cargando. 

2- Trate diferentes posiciones en 
el control de volumen al cargar, y 
mantenga el control de tono al 
máximo de agudos y mínimo de 
graves. 

3- Verifique que la grabación no 
tiene ruidos de fondo o zumbidos. 

4- Use buenas cintas para grabar, 
ya existen a la venta especiales 
para esta aplicación. 

5- Limpie a menudo los cabezales 
y la medita de goma con un paño 
suave o hisopo humedecido en 
alcohol o tetracloruro de carbono. 

6- Si dispone de un desmagnetiza¬ 
dor, úselo de vez en cuando. 

7- Si el grabador anda a pilas, in¬ 
tente de ese modo, tal vez se re¬ 
duzcan los zumbidos. 
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8- Recuerde de no dejar conecta¬ 
dos a la vez en el grabador, ambos 
plugs de EAR y MIC. 

9- Al “savear”, realice varias copias, 
ya que si no carga una, puede se¬ 
guir probando con la siguiente. 

10- Al regrabar mucho una porción 
o una cassette, trae problemas de 
ruido de fondo. 

11- Existen ciertas marcas y mo¬ 
delos de grabadores que sencilla¬ 
mente es imposible que funcionen 
con estas máquinas. 

12- Haga cambiar y/o alinear el ca¬ 
bezal de grabación. 

13- Si usa un grabador estéreo, 
use el canal izquierdo preferente¬ 
mente. 

14- Instale un filtro electrónico,que 
entre otras ventajas permiten co¬ 
piar simultáneamente en otro gra¬ 
bador. 


w 


AJUSTE DE AZIMUT: 

Es tal vez la mejor solución y la 
primera a Intentar. Hemos compro¬ 
bado que aún ni un grabador recién 
comprado viene con el cabezal 
perfectamente ajustado. El proce¬ 
dimiento es sencillo y lo puede 
realizarcualquieracon un poco de 
cuidado. Se trata sólo de alinear 
perpendicularmente la ranura del 
cabezal con el eje de la cinta. 

En la mayoría de los grabadores el 
cabezal está montado sobre dos 
tornillos; uno fijo y el otro móvil, 
con un resorte de presión. Ajus¬ 
tando este último, puede mejo¬ 
rarse el sonido de manera óptima. 
En algunos modelos se accede a 
este tornillo a través de un peque¬ 
ño agujerito encima del cabezal, 















Una de las dificultades de los ordenadores del tipo ZX 81, es su interface para 
grabadores a cassette. Mientras algunos poseedores tienen problemas en grabar 
algo en su grabador, la mayor dificultad reside en tratar de recuperar “eso” como 
algo coherente, un programa... Algunas de las indicaciones que daremos aquí, tal vez 
no sea la más adecuada, para su caso en particular, pero leyendo todas estas recetas 
seguramente se le ocurrirá algo que no había intentado antes. 



si no deberá realizarlo con alguna 
herramienta de modo que puede 
pasar un destornillador del tipo de 
relojero. 

Una vez localizado, ponga una 
cassette conteniendo un progra¬ 
ma bien grabado, una cassette de 
ajuste de azimut, o simplemente 
ese programa “maldito” que no 
quiere entrar. Los controles de to¬ 
no del grabador deberán estar con 
los agudos al máximo y graves al 
mínimo. A continuación mueva el 
tornillo móvil lentamente en am¬ 
bas direcciones hasta lograr el so¬ 
nido más agudo posible. Ese es el 
punto óptimo. 

Acontinuación publicamos un sen¬ 
cillo circuito para quienes quieran 
usar un deck de cassette, para 
adaptarlo convenientemente. 

Esperamos que estos consejos les 
hayan sido útiles, y quedamos dis¬ 
puestos para cualquier tipo de con¬ 
sulta técnica sobre el tema. 


Participe de la era 
de la informática. 


Si usted está pensando en adquirir un sistema de com¬ 
putación para su empresa o comercio, o tal vez en “algo” 
para su hogar, le invitamos a que nos conozca. 

_ _ _ Somos una empresa dedicada a la comercialización 

de equipos, sistemas y accesorios para computación. Todo esto respaldado por profesionales en informática 
e ingeniería para ofrecerle así todo el apoyo que necesite. 

Nuestros motivos son sus problemas operativos y sus inquietudes sobre computación; nuestro fin, solucio¬ 
nárselos; nuestra preocupación, usted. Sí, porque tanto usted como nosotros, nos encontramos en un mundo 
vertiginoso, donde cada minuto cuenta, importa y cuesta dinero. Por eso proponemos soluciones acordes a este 
tiempo, con el más alto nivel profesional y responsabilidad comercial. 

Tenemos equipos para cada necesidad; desde el más completo sistema profesional, hasta el más simple or¬ 
denador para uso personal o didáctico. Y para después, o si ya posee uno, una completa gama de accesorios para 
todas las marcas y modelos. 

Acérquese a nosotros, plantéenos su inquietud sobre este tema y compruebe que nuestra mayor preocupación 
es USTED. 



Distribuidor Autorizado 
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PROGRAMAS 


SUBMARINO 


Comp.: TS 1000 
Conf.: 2 K 

Cías.: ENT. 


CARRERA DE CABALLOS 


Usted está a bordo de un buque de guerra y deberá 
destruir un submarino enemigo. Para dejar caer las 
bombas utilice la tecla 0. 



1 REM **+ K 64 *T* 

2 REM * SUBMARINO * 

3 REM ***±±+*****±± 

S RANO 

10 LET SC =NOT PI 
20 LET L=INT PI 
40 LET DF=NOT PI 
45 LET S=INT ÍRND*13)+7 
50 LET D = INT PI-5GN PI 
50 FOR R=27 Tü NOT PI STEP -SO 
N PI - 

55 PRINT RT SON PI . 7 : -W - : : 

RT INT PI-SGN P1,5; ‘ : 1 1 * 

70 PRINT RT = . ° “ 

75 IF INKEY $ = "0'" THEN LET DF = 1 
30 IF DF =5GN PI THEN GOTO 100 
35 NEXT R 
90 GOTO 200 
100 PRINT RT 0,10!" “ 

110 LET D=D+SGN PI 
120 PRINT RT D : ie; , 1 ü , ‘ 

125 IF D =5 AND fl + INT PI-SGN PI = 
10. THEN GOTO 400 
130 IF D >5 THEN GOTO 300 
140 GOTO 35 
200 LET .L=L-SGN PI 
205 LET DF = NOT PI 
210 CL3 

220 IF L>NOT PI THEN GOTO 45 
230 PRINT RT 11,11;“GRME OUER !i 
240 PRINT RT 12, 11; "SCORE : S! ; 50 
250 PAUSE 4E4 
250 CLS 
270 RÜN 

300 LET DF=NGT PI 
305 PRINT RT D.10;" “ 

310 LET D=NOT PI 

320 GOTO 35 

410 LET SC=5C + SGN PI 

420 CLS 

430 GOTO 20 

440 SRUE "SUBMARINH" 

—4. 5 . 0 RÜN _ 


PANTALLA 



La carrera larga automáticamente... Elija el caballoy 
empiece a apostar. 


PANTALLA 


Comp.: TS 1000 

Conf.: 2 K 

Cías.: ENT. 




1 REM **■*■** + ■¥■ K 54 £***** 4 : 

H REM ^CARRERA DE CABALLOS + 

5 PRINT Mi 0 , 0 ;"-LARGADA-AT 
20 ,S;”-LLEGADA-" 

3 PRINT RT 0,17; 

10 LET A=2 
15 LET B=1 
20. LET 0=2 
25 LET D =3 
30 LET E =2 
35 LET F =5 
43 LET G=2 
45 LET H = 7 
50 LET 1=19 

55 PR INT RT H , B" 11 ; RT C . D ; “ 1! 

; RT E = F; “ RT G . H ; " " 

50 LET X = INT (RNÍ>*5) 

55 IF X =1 THEN LET -Rsfi + 1 
70 IF X =2 THEN LET C=C + 1 
75 IF X =3 THEN LET E=E*1 
30 IF X =4 THEN LET G=G + 1 

51 FOR N = 1 TO 1 Q 
32 NEXT N 

35 PRINT RT H , B; •■g''; RT C , D ; "g” 
90 PRINT RT E,Fj ,, S , M AT G H ; 

97 IF A =7 OR C=Z OR E=Z OR G=Z 
THEN PRINT AT 11,15; M A*GAN," r >000 

P\V 

93 IF A =Z OR C = Z OR E = Z OR G=Z 
THEN GOTO 105 
100 GOTO 55 
105 PAUSE 4E4 
1S5 CLS 
107 GOTO 0 
110 SRUE "CARRERS" 

120 RUN 


1M 






















































GUILLOTINA 


Comp.: TS 1000 
Conf.: 2 K 

Cías.: ENT. 


El juego consiste en adivinar un número menor o 
igual a 100. Ud. cuenta con seis oportunidades. 


PANTALLA 



Mi i* í UN NUMERO 100 
♦6 OPORTUNIDADES/ 


55 

8HH5 

58 


1 

2 
3 
R 

10 

15 

20 

25 

25 

27 

30 

35 

40 

45 

50 

55 

60 

65 

70 

■ 75 
80 
81 

32 

ERO < 

33 

DES) " 
85 
SO 
100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
160 
161 
165 
170 


REM 

REM 

RRND 

LET A 

POR F 

PRINT 

NEXT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

POR P 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


*** K 54 *** 

* G UILL OTIN R * 

= INT (RND *100) +1 
=A/jR T0 (t 12 

P 


2121 " 
RT 10,0; "í 
RT 7 6; " - 1 
AT s,7;"SS" 
TRB 5; " 8 H H 5 ‘ 
TRB 5; ‘THGl' 

' 1 B “ U —B 58“ 

= -5 TO 7 
RT 10.5;" / " 
RT P.fi/fi;" 


I 


1,14; 


PRINT RT 2,10; ,l P;DIü . UN NUM 
= 100 " 

PRINT TRB 12;"Í 6 0P0RTUNIDR 

IP P >R-R THEN GOTO 125 
PRINT RT 10,5;"-" 

INPUT G 

IP R = G THEN GOTO ISO 
LET R$="MAYOR" 

IP G >R THEN LET R$="MENOR" 
PRINT TRB 12;R$ 

NEXT P 

PRINT RT 11,2;"*-" 

POR P=R/R TO 23 
PRINT RT 13,P;" O" 

NEXT P 

PRINT RT 11,23;A 
INPUT R$ 

CLS 

RUN 

SAUE "GUILLOTINE" 

RUN 


MOSQUITOS 


Comp.: TS 1000 
Conf.: 2 K 

Cías.: ENT. 


El juego consiste en matar a todos los mosquitos (*) 
y luego ir a la cama. Utilice teclas 5,6,7 y 8 según el 
sentido de las flechas. 


1 REM ** K 54- ** MOSQUITO** 

2 PRINT “HAY QUE MATAR h TODO 
j LOS MOSQUITOS, Y LUEGO IR A Lfi 

CAMA" 



PAUSE 200 



4 

CLS 




6 

LET 

U =1 



7 

PRINT TRB 25;"BZZ" 



10 

LET 

5=0 



20 

PRINT RT 10,21.;" I 


11 

30 

POR 

I = U TO 31 



40 

LET 

X = INT íRND*18) 



50 

LET 

Y = INT íRND*18) 



60- 

PRINT RT X,Y;"*" 



70 

NEXT I 



80 

PRINT RT X,Y;" " 



30 

U 

100 

U 

110 

u 

120 

Ü 

130 

IP 

INKEY$ = "5" THEN 

LET 

Y =Y - 

IP 

INKEY$ = "5" THEN 

LET 

X=X + 

IP 

INKEY $ = 15 7" THEN 

LET 

X =X - 

IP 

INKEY$ = "8" THEN 

LET 

Y =Y + 

PRINT AT X,Y.;"0” 



140 

LET 

5=8+0.15 



150 

IP 

X=10 RND Y=21 THEN 

GOTO 

170 





160 

GOTO 80 



170 

PRINT AT 20,12.;. 

BUENAS NO 

CHES' 






ISO PRINT RT 21, 13.; "TIEMP0 = ". 
190 PAUSE 4-E4- 
200 CLS 
210 RUN 

220 SAUE "MOSQUITg' 

225 RANO 
23© RUN 



PANTALLA 




♦ 

* * * 

♦ 

* 

*• 4 

* 

BZZ 

* 

* * * * 

^ 4 * 

* 

* # * * 

* * 
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PROGRAMAS 


CALENDARIO 


Comp.: TS 1000 
Conf.: 16 K 

Cías.: ENT 


Este programa calcula el día de la semana de una 
fecha cualquiera (>1900).- Sólo hay que entrar los 
datos en forma correcta. 



133SÜ192I333 


I REM ******************* 

£ REM ****** K £4 ****** 

3 REM ******************* 

4 LET C$ = "" 

50 LET 5$ = “LUNES MARTES MIERC 
JUEVES VIERNE55 R BADQ DOMINGO " 
40 PRINT TfiB S; " 

5S PRINT TAB 3;“ 

60 PRINT THE 8 ;" 

70 PRINT RT 5,0;“ENTRE LOS DPT 

OSÍDDMMHHRR)“ 

SS INPUT 0$ 

00 LET D =UÑL OSÍ I TG 23 

51 LET M = UAL QSÍ3 TO 43 
92 LET A = UAL 0$ í 5 TO 83 

100 LET R=VAL Q$(7 TO 33 
130 PRINT 

140 IF D > 31 ÜR M>12 GR D<1 GR M 
<1 OR M = 5 RND D > 29 THEN GOTO ISO 
15G GOTO 50G 

ISO PRINT “BOATOS INCORRECTOS. 
POR FRUOR, CORRIJALOSB*' 

170 PRUSE 200 

IBS CLS 

190 GOTO 50 

501 LET C=A/4 

510 LET Cl-INT 0 

550 LET C=C-C1 

530 IF C=Q THEN LET C=1 

540 LET H1= R —1 

250 LET A2=A1*3S5.55 

560 LET M = M-1 

570 LET F =23 

530 IF C=1 THEN LET F=£3 

590 IF M =0 THEN LET H=0 

300 IF M=1 THEN LET H=31 

310 IF M =5 THEN LET H=3i+F 

350 IF M=3 THEN LET H=62+F 

33S IF M =4 THEN LET H=9£+F 

340 IF M =5 THEN LET H = 153 + F 

350 IF M = 6 THEN LET H=153+F 

360 IF >1=7 THEN LET H = 134+F 

37S IF M =3 THEN LET H = 515 + F 

333 IF M =9 THEN LET H=245+F 

393 IF M=10 THEN LET H=27S+F 

400 IF M = 11 THEN LET H=305+P 

410 IF M=15 THEN LET H=337+F 

450 LET T=A5+D+H 

43S LET Tl=T/7 

448 LET T2=INT TI 

450 LET T3=T1-T5 

460 LET T4 = INT »T3*73 

470 LET T4 =T4*1 

430 LET K$*5$<T4*7-6 TO T4*73 

490 IF T4 = 5 OR T4=7 THEN LET C$ 


500 PRINT D" /“; M +1" / 1 

m ;k$+c$ 

510 INPUT P$ 

520 CLS 
530 GOTO 20 
540 SAUE 
550 RUN 


;h; “ 


ADIVINANZA 


Comp.: TS 1000 
Conf.: 2 K 
Cías.: ENT. 


Su computadora pensará una letra del abecedario y 
Ud. deberá adivinarla. 


1 REM ***** K 54 ***** 

5 RHND 

le c r in~ ! ~ rt 4.4; ESHasagsga 


150 IF 

■■ t i ii.—. 

150'IF 

.? 

155 IF 
17S 
175 
175 
177 
190 


M SOS 
350 
350 
O" 
370 
330 
330 
413 


>0 


L$ 

L$ 


11 PRINT 
30 LET 3=1 

130 LET H = INT (RND*26) +33 
110 LET R$=CHR* íA ) 

113 PRINT 

150 PRINT “ADIVINA QUE LETRA PE 
N5E 7 ÍH-Z'J ,! 

129 PRINT 

130 INPUT L$ 

143 IF L $ =H$ THEN GOTO 175 

145 IF 5=3 THEN PRINT 

146 IF S =3 THEN PRINT “ 

SOS UN PLOMO 11 " " 

147 IF 5=3 THEN GOTO 35 

L$>A$ THEN PRINT "*.; 

ES POSTERIOR" 

L$ <H$ THEN PRINT . 

ES ANTERIOR" 

L $ < >H$ THEN LET 5=5 + 1 

GOTO 130 
PRINT ' 

PRINT “ SCÜRE = " 5 

PRINT 

IF 5 >3 THEN PRINT “ ,!,, bH 

STANTE FLOUON” 

5S0 IF 5 < = 3 THEN PRINT " 

""BRAVISIMO. 

510 IF 5=1 THEN PRINT " 

UN GENIO. 

PRINT 

PRINT "QUERES SEGUIR JUGAND 

íg/ffi) " 

INPUT Dí 

IF D $ ="5" THEN GOTO 500 
PRINT 

PRINT ,! TE ACHICASTE. .7' 


450 STOP 
500 CLS 
510 RUN 

500 SAUE “LETRAS' 

501 RUN 


PANTALLA 




ADIVINA OUE LETRA PENSE 

'í (R-2) 


ES ANTERIOR 



ES ANTERIOR 



ES ANTERIOR 



ES RNTERIOR 


’A"? 

ES ANTERIOR 



ES POSTERIOR 


"R"? 

ES POSTERIOR 


• • « 

SOS UN PLOMO" 


QUERES 

SEGUIR JUGANDO? 
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SUMAS Y 
DIVERSIONES 
PARA CHICOS 

Este programa escrito para los ordenadores 
compatibles con el ZX 81, ocupa algo más de 14,5 
KB de memoria por lo que será necesario disponer 
de la expansión correspondiente. Pensado para 
chicos de 5 a 6 años, el programa comprende una 
mezcla de simples tareas aritméticas y sencillos 
juegos; la secuencia de los mismos es aleatoria. De 
esta manera se logra interésy variedad ayudando al 
niño a aprender y retener su atención durante un 
tiempo razonable. Una vez arrancado el programa, 
será saludado por un amable ¡Hola, mi nombre es 
Sinclair, cuál es tu nombre? al que una vez 
respondido se le dirigirá siempre. El programa sigue 
luego con una serie de simples pruebas y cuentas 
que serán recompensadas con juegos si se 
resuelven bien. Los ejercicios constan en comparar 
series de números en mayores y menores; sumas y 
restas simples, etc. Cuando luego de varios 
intentos, el alumno no acierta, el ordenador termina 
por mostrar la respuesta correcta. Luego de cada 
entrada de un número (excepto en los juegos), debe 
pulsarse NEW LINE (ENTER). También hay un par 
de subrutinas que producen lindos efectos en la 
pantalla. Dibujan flores, espirales y círculos. 


Además hasta crean efectos con el nombre. Los 
juegos son un tanto sencillos, pero ofrecen un 
“descanso” al trabajo con los números. Algunos se 
ofrecen como recompensa y otros aparecen 
aleatoriamente. Existe, sin embargo, una tendencia 
a las sumas, de manera que el alumno pase más 
tiempo trabajando que jugando. Los juegos 
incorporados son: uno que consiste en esquivar 
estrellas; otro en conducir un auto por una ruta sin 
chocar; y otro en el que hay que atajar las estrellas 
que caen. Todos tienen instrucciones y son fácil de 
usar. Existen también unos pequeños trucos 
gráficos que atraen la atención de los pequeños 
usuarios, como por ejemplo una cara que se pone 
triste o alegre en caso de que responda mal o bien 
a un problema. El programa corre a una velocidad 
lenta de modo que el niño no se sienta apurado, 
pero eso puede serajustadocorrigiendo los bucles 
de espera FOR... NEXT. (Se prefirieron al PAUSE 
debido a que no producen parpadeo en la pantalla). 
Del mismo modo, las sumas se han acotado en su 
dificultad pero pueden complicarse extendiendo el 
rango de números aleatorios usados. Inicialmente 
es posible que el niño necesite una ayuda para 
comenzar a usarlo, pero seguramente enseguida 
se manejará solo debido a la gran receptividad a 
esa edad. Este programa presenta un completo 
paquete educativo para el pequeño usuario de un 
ordenador de este tipo, acompañado a su vez, de un 
poco de entretenimiento. 


Comp.: 

Conf.: 

Cías.: 


TS 1000 
16 K 
EDU 


****4** ***** 

EXRHEN PRRR'. 
***********" 


0BREH SüFTURRE 

2 PRINT^iT 10,5; "_ 

SOSOS" , RT 13,9;"LR PLRTR" 

3 PAUSE 200 

4 CLS 

5 GOTO 9800 

10 REM TEST MfiYQR + MENOR 
12 PRINT RT 8,5;"MRYQRES Y NEN 
ORES" 

15 PRINT RT 9,5;"***********#* 

**íl PRINT RT 10,5; 

*****" 

20 PRINT RT 14,5, 

" ; Rl 

25 PRINT RT 15,5, 

30 FOR 1=1 TO £00 
35 NEXT I 
40 CLS 
45 RRND 

50 LET X = INT (1+30*RND) 

55 LET Y «INT <1+30*RND) 

60 LET Z = INT (1+30*RND:> 

61 IF X =Y TMEN GOTO 50 

62 IF X*Z THEN GOTO 50 

63 IF Y=Z TMEN GOTO 50 
65 LET P = INT (l + 10*RNt>) 

70 IF P <6 TMEN GOTO 150 
60 REM 

62 LET B=^^™ 

85 PRINT TR6 3," 

**" 

90 PRINT TRB 3; 

OR, "j R*; "•?*' 

95 PRINT TRB 3, 

**" 

96 PRINT 


****** 
CURL ES EL MRY 
****** 





100 IF 8 <X TMEN LET B = X 
110 IF 6 <Y TMEN LET B=Y 
120 IF B <2 TMEN LET B=Z 


125 INPUT 61 

140 IF B1=6 TMEN GOTO 9200 

145 GOSUB 9100 

146 GOTO 30 

150 REM MENORES 

151 REM kfiÜÉÜi 

155 LET B =31 

160 PRINT TRB 3," ****** 

* * " 

165 PRINT.TÑB 3,"CURL ES EL MEN 

170'PRINT TRE- 3," ****** 

* & ' " 

175 PRINT 
.1.60.. 





195 IF 6 > a TMEN LET 6 = X 

200 IF 6 > V TMEN LET B = V 

£05 IF B > Z TMEN LET 5 = Z 

215 INPUT 61 

£20 IF 51=6 THEN GOTO 9£O0 
225 GÜ5U6 9100 
230 GOTO 150 

1000 REM ‘ 

1001 REM . 

1003 PRIN\ 

1009 PRINT TRB 

1010 PRINT TRB 

1015 PRINT TRB 

1016 PRINT TRB 
1020 PRINT 
1026 PRINT 
1030 PRINT 

1035 PRINT TRB 10,"RHÜRR ",R$ 
1040 PRINT 
1045 PRINT 

1050 PRINT TRB 6,"MRGñMOS RLGUNR 
5 SUMAS” 

1060 FOR 1=1 Tü 200 
1065 NEXT I 
1070 UL6 
1075 RRND 

1030 LET XaINT (1+20*RND ) 


y; ************* 
9;"SUMAS SIMPLES 
9;"************** 

9, atamima 


1090 LET Y = INT Íi+20*RND) 
1100 LET AsINT (1 + 10*RND:* 
1105 IF R <6 TMEN GOTO 1360 
1110 REM RDICIQN 

mi rem mmmm 

1115 LET T =0 
1120 FOR 1=1 TO 7 
113Ü PRINT 
1140 NEXT I 
USO PRINT ' 



1160 PRINT 
1170 PRINT TRB 


1200 

1210 

1220 

1223 

1225 

1230 

1240 

125Q 

1260 

1270 


INPUT __ 

LET T =T + 1 

IF T =4 TMEN GOTO 1250 
CLS 

IF Z=X+Y THEN GOTO 9200 
GOSUB 9100 
GOTO 1150 
PRINT 

PRINT "BUENO "jH$ 

PRINT "RHÜRR UOY R RYUDRRTE 


1230 PRINT "LR RESPUESTA ES ";X+ 

Y 

1290 PRINT " ****” 

1300 FOR 1=1 TO 10Ü 

1310 NEaT I 

135Ü GOTO 9035 

1360 REM 5^ _____ 

1370 IF x7^THe!^GuTQ 1070 

1380 LET T =0 

1390 FOR 1=1 TO 7 

1400 PRINT 

1410 NEXT I 

1440 PRINT TRB 7;X,” - ",Y;" 

= ■■ 

1450 PRINT 



Pag. 9 



























PROGRAMAS 



146j^RIK^l 

WW! 


15 


1530 


14-60 LET T=T+1 
1490 IE T = 4 THEN GOTO 
1495 CL5 
1500 IF Z = X-Y THEN GOTO 9200 
1510 G05U6 9100 
1520 GOTO 1420 
1530 PRINT 

-BUENO ñ* 

"AHORR TE JüY R AYUDA 


1 i X — 


100 


U slfijg 

JUgGC^^RRCRASH 

N^^RMÚ^^UGAI 


R UN JUE 


10j * 

RPRIETR l,, 'h" "PRRR GUI 

espacia^;; 


"RAPIDO-COMIENZA EL J 
120 


1540 PRINT 
1550 PRINT 
R" 

1560 PRINT "LA RESPUESTA ES 

Y 

1570 PRINT " * 

1550 FOR 1=1 TO 
1585 NEXT I 
1590 GOTO 9035 

2000 REh - 

2001 REM . 

2010 PRIN 
GO ";R$ 

2011 PRINT 

2012 PRINT 

2013 PRINT 

2014 PRINT 

2015 PRINT TRB 11; " 

2016 PRINT TRB 11, 1 

2017 PRINT TRB 
2016 PRINT 

2019 PRINT 

2020 PRINT 
AR TU ÑAUE 

2021 PRINT 

2022 PRINT 

2023 PRINT "EL JUEGO TERMINRRh S 
I ESTRELLAS TU NRJE" 

2024 PRINT “Y TE M05TRRRE TU PUN 
TR JE " 

2025 PRINT 

2026 PRINT 

2027 PRINT 
2030 PRINT 
UEGO " 

2040 FOR 1=1 TO 
2045 NEXT I 
2050 CLS 
2060 LET U=0 
2070 LET X=10 
2060 LET Y = 15 
2090 LET Z =20 

2100 PRINT RT Z,RND*30;"*" 

2110 PRINT AT X,Y;" 

2120-LET U=U+1 
2130 5CR0LL 

2140 IF Y>2 THEN LET Y=Y-1 
2150 IF INKEYí = "M" AND Y<28 THEN 
LET Y=Y + 2 

2160 PRINT AT X,Y; " "J" " 

2170 PRINT AT 11,Y+1; 

2180 IF PEEK (PEEK 1639B+256*PEE 

K 16399)023 THEN GOTO 2100 

2190 PRINT U 

2200 FOR 1=1 TO 35 

2205 NEXT I 

2210 CLS 

2220 PRINT 

2221 PRINT 

2222 PRINT 

2223 PRINT 

2225 IF U > 50 THEN GOTO 2230 

2230 PRINT "NO TE ENOJES ";A$ 

2231 PRINT "TU PUNTRJE ES..";U 

2235 PRINT 
2240 PRINT 
2245 PRINT 
2250 PRINT 
AS ” 

2260 FOR 1=1 TO 
2265 NEXT I 
2270 GOTO 9035 

2260 IF U >300 THEN GOTO 2296 
2290 PRINT "MUY BIEN,";R* 

2295 GOTO 2231 

2296 PRINT "MUY 6IEN , DE JERDAD, 

2¿9B GOTO 2231 

3000 REM FUN--TIHE 

3001 REM ■■■■■■■ 

3010 PRINT TA6 4,"TIEMPO DE DIJE 
RTIRSE" 

3015 PRINT TAS 4;' 

******" 

3016 PRINT TR6 4; ' 

******" 

3020 PRINT 

3021 PRINT 

3022 PRINT 

3030 PRINT "hHÜRR QBSERUAME ";h$ 
3035 PRINT 

TE DI6UJARE UNA LIND 


"TE DIJIERTES?" 
"AHORA,HAGAMOS ALGO M 


45 


’************** 
'********** * ** * 


3040 PRINT 

A" 

3045 PRINT 

3050 PRINT "FIGURA PARA JOS" 

3055 FOR 1=1 TO 60 
3058 NEXT I 
3060 CLS 
3065 RAND 

3070 LET A = INT (1+10*RND) 

3OS0 IF R <4 THEN GOTO 32O0 

3090 IF R>6 THEN GOTO 3400 

3100 REM LINDR FIGURA 

3105 REM ÉBMÉIIHH 

3110 FOR X=1 TO 100 

3120 LET Y=PI*X/50 

3130 PRINT AT 9*C0S (Y)+10,14*51 

N (Y) +15; "B" 

3140 NEXT X 


15 


1300 STEP 8 


3150 FOR 1=1 TO 
3155 NEXT I 
3160 GOTO 3300 
3200 REM FLORES+ESPIRALES 
REM 

3202 LET A = INT (1+1Ü*RND) 

3205 IF A > 5 THEN GOTO 3260 

3210 REM LINDAS FLORES 

3211 REM ■■¡■■■■■■■■I 

3215 FOR 5=0 TO 200 STEP 3 
3220 LET T=S*PI/130 
3225 LET F=23*SIN (5*T) 

3230 LET P =30 +F*CÜS T 
3235 LET 0=2C+F*SIN T 
3240 PLOT P,0 
3245 NEXT- S 
3250 FOR 1=1 TO 
3253 NEXT I 
3255 GOTO 3300 

3260 REM ESPIRAL 

3261 REM HÉT— 

3265 FOR 5=0 
3270 LET T =S*P1/ISO 
3275 LET F=1.1*T 
3230 LET P =30 +F *CÜ5 T 
32S5 LET ü=20+F*SIN T 
3290 PLOT P,Q 

3295 NEXT 5 

3296 FOR 1=1 TO 15 
3298 NEXT I 

330Ü CLS 

3310 PRINT AT 3,5;"AH0Rh ";h$ 
3320 PRINT AT 10,5;"CONTINUEMOS 
HACIENDO COSAS" 

3325 FOR 1=1 TO 35 

3328 NEXT I 

3330 GOTO 9035 

3400 REM CIRCULOS 

3405 REM mMÉiÉM 

3410 FOR J = 10 TO £ STEP -1 

3415 LET 0$=CHR$ (INT (RND*11+12 

S* íRND <0.5) ) ) 

3420 FOR 6=0 TO 360 STEP 10 
3430 LET G=6*PI/180 
3440 PRINT hT 10+J+COS G,15+J*SI 
N G; O % 

3450 NEXT 6 

3460 NEXT J 

3470 FOR 1=1 TO 15 

3475 NEXT I 

3460 GOTO 3300 

4000 REM CLASIFICA LOS NOS . 

REM 

4005 PRINT TA6 4;"************** 
*********" 

4010 PRINT TA6 4;"CLASIFICA ESTO 
S NUMEROS" 

4015 PRINT TA6 4;"************* * 
*********" 

4020 FOR X = 1 TO 5 
4025 PRINT 
4030 NEXT X 

4035 PRINT "CUANDO YO PONGA 6 NU 
MEROS S06RE" 

4G36 PRINT 

4040 PRINT "LA PANTALLA, DEBES C 
LA5IFICARLOS" 

4041 P RINT 

4045 PRINT "EN ORDEN,DE MENOR R 
MAYOR" 

4050 PRINT 
4055 PRINT 
4060 PRINT 
ORRECTA" 

4070 PRINT 

4075 PRINT "TE REGALO UN JUEGO" 
4030 PRINT 

4035 PRINT "AHORA JOY A ELEGIR L 
OS NUMEROS * *' 

4030 FOR 1=1 TQ 80 
4093 NEXT I 
4095 CLS 

4100 REH SELECCION DE 6 NUMEROS 
REM 

4105 RAND 
4110 DIM A(6) 

4115 FOR 1=1 TO 6 

4120 LET A í I)=INT (1+20*RND) 

4121 NEXT I 

4122 IF A(2) = H (1) 

4123 IF A C'3) =A (2) 

HEN GOTO 4100 

4124 IF h i4i = A (3) GR A(4)=A(2) O 
R h(4j=h(1j THEN GOTO 4100 

4125 IF A (5) = A (4) OR A(5)=A(3) O 
R A(5J=A(2i OR A(5)=A(i:i THEN GO 
TO 4100 

4126 IF h (6) =A (5) OR A(6)=AU:i O 
R Aí6:i=h¡3) OR A (6) =A (2) OR A (6) 
=HÍ1 i THEN GOTO 4100 

4130 PRINT "AHORR ";A$ 

4131 PRINT 

4135 PRINT "MIS NUMEROS SON. 


"SI TU RESPUESTA ES C 


THEN GOTO 4100 
OR H(3)=A(1) T 


4140 PRINT 

4145 FÜR 1=1 TO 6 

4150 PRINT A(I);" "; 

4155 NEXT I 
4153 LET C=0 

4160 REM A $ ARHA + ENTRñ NUMEROS 

REh ■■■■■■■ÉÉÉÉHimÜH 

4165 PRINT 


4166 PRINT 

4170 PRINT ' 
ROS" 

4171 PRINT 
4175 PRINT ' 

LOS MAYORES 
4177 PRINT 


AHORA,ENTRA LOS NUME 


LOS MENORES PRIMERO, 
DESPUES" 


4180 

4185 

41yO 

4195 

4196 
R 6 ( 
=A (5 

3 

4197 

4198 

4199 

4200 

4201 

4202 

4203 
4205 
4208 
15 

4210 

4215 

4220 

4225 

4226 
4230 
423 1 

4232 

4250 

4251 
4255 
4260 
0 

4265 

4270 

4271 

4272 

4273 
4275 
Hí; 
427¡ 

4280 
UGAR 

4281 
**** 
4285 

4233 
4290 
4295 

4300 

4301 
4310 
4315 

4 320 
4 325 
4327 
4330 
4335 
434 0 


DIM 6 (6) 

FOR 1=1 TO 6 
INPUT Bill 
PRINT Bdí," "; 

IF 6 (I) =A (1) OR B (I) =A (2) O 
I) =A (3 J OR 6 CIJ = A i41 OR 6(1) 

) OR Bi:i)=A(6) THEN GOTO 419 

GOTO 4500 
NEXT I 

FOR 1=1 TO 12 
NEXT I 

REM ZX ARMA LOS NUMEROS 

rem 

LET K = 0 
FOR 1=1 TO 5 

IF A i Ii > A(I +1) THEN GOTO 42 

GOTO 4230 
LET T =A íI) 

LET A (I.i =H (1 + 1) 

LET A íI + 1) =T 
LET K=K +1 
NEXT I 

IF K = 0 THEN GOTO 4250 
GOTO 4200 

REM COMPARA ZX + At ARMA 

REM ■■■■■■■■■■na 

FÜR 1=1 TO 6 

IF Rd)OB(I) THEN GOTO 430 
NEXT I 

REM RESPUESTA CORRECTA 

Rem ■■■■■■■■■■■■■ 

PRINT 

PRINT 

PRINT TAB 5,"***MUY 6IEN ", 
***" 

PRINT 

PRI NT Th E- 3; "AHORA PUEDES J 

UN HtTsfcffl 

P RINT "******************** 
********" 

FOR 1=1 TO 35 

NEXT I 

CLS 

GOTO 3000 

REM RESPUESTAS INCORRECTAS 

REM ■■■■■■■■■■ 

LET C=C + 1 

IF C = 3 THEN GOTO 4 4O0 
CLS 

PRINT "NO ' *;A * 

PRINT 

PRINT "NO ES CORRECTO" 

PRINT 

PRINT "TUS NUMEROS ERAN ... 


4345 PRINT 

4350 FOR 1=1 Tü 6 

4355 PRINT 6(1);" 

4360 NEXT I 

4365 PRINT 

4366 PRINT 

4370 PRINT "PR06EMÜS DE NUEJÜ" 
4375 GOTO 4160 

4400 REM AYUDA 

4401 REM ■■■ 


4405 CLS 
4410 PRINT 
4415 PRINT 
UDA" 

4420 PRINT 

4421 PRINT 
4425 PRINT 


'6UEN0 " ; A$ 

'JEO QUE NECESITAS AY 


'TUS NUMEROS ERAN.... 


4430 PRINT 
4435 FOR 1=1 TÜ 
4440 PRINT 6(1) 

4445 NEXT I 
4458 PRINT 
4451 PRINT 
4455 PRINT 
4460 PRINT 

SER. 

4465 PRINT 
4478 FOR 1=1 TO 6 
4475 PRINT A (I);" 
4480 NEXT I 

4485 PRINT 

4486 PRINT 

4489 PRINT 

4490 PRINT 

4491 PRINT 
************" 

4492 FOR 1=1 TO 75 

4493 NEXT I 

4494 PRINT 

4495 FOR 1=1 Tü 15 

4497 NEXT I 

4498 CLS 

4499 GOTO 1QÜ0 

4500 REM ENTRADA NO 

4581 REM - 


DE MENOR A MAYOR" 

LOS NUMEROS DEBIERON 


AHORA ";A $ 

BUSCA TUS ERRORES" 
******************** 


INCORRECTO 


4S1G PRINT 

4520 PRINT "NUMERO FALSO-NO ESTA 
EN MI LISTA" 

4521 PRINT " ***<-******* + ******** 
*******^* * **" 

4525 PPINT 

4530 PRINT "JAMOS A COMENZAR DE 
NUEJO" 

4540 FOR 1=1 TO 35 
4545 NEXT I 
4550 CLS 
4560 GuTO 4100 

8000 REM JUEGOS-PREMIO 

8001 REM I-- 

8005 RAND 
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.3010 LET G = INT Í 1 + 10-tRNDi 
SOIS IF GU THEN GOTO ó4-DO 
3020 IF G>? THEN DOTO 5600 

3100 REM PUTO D E CARRERA 

3101 REM 

8115 PRINT THE- 6 


.v.sv. 

3120 PRINT TAB 6,"AUTO DE lhRPER 

8130 PRINT THE 6, .W.V.V-VJV-VV 

8131 PRINT 

3132 PRINT 

3133 PRINT 
3134- PRINT 

3135 PRINT "CORRE TU HUT ú SOBRE 
LA PI5TA " 

3137 PRINT 

814.0 PRINT "NO TOQUES L.OS BORDES 
DEL CPMINÜ" 

314-5 PRINT 

3150 PRINT "PORQUE EL JUEGO TERM 
INPRh" 

3155 PRINT 

8156 PRINT 

8157 PRINT 
3153 PRINT 

3160 PRINT ‘ hPRIETh" ,, Z" ,, PhRh IR 
A Lh IZQUIERDA" 

816^PPINTV i * 

8170 PRINT "APRIETA' 'M""PARA IR 
P Lh DERECHA" 

8175 PRINT " “ 


8176 
8180 
O NT O' 
818 5 
8185 
8190 
8200 
8210 
8220 
8230 
824-0 
8250 
8260 
827Q 
1 

8280 

1 

8290 
83O0 
3310 
3320 
8330 _ 

834-0 

3350 

3355 

8360 

84-00 

8401 

84-e: 


PRINT 

PRINT "EL JUEGO COMIENZA PR 

FOR 1*1 TG 50 

NEXT I 

CLS 

LET U = 1Q 
LET X = 10 
LET Y-20 
LET Z =9 

PRINT PT 
5CP0LL 

IF IfJEE3$ = "Z" THEN LET Asa- 

IF INKEY $ = "M" THEN LET X = X + 

PRINT PT U,X;"Y" 

IF Z <17 THEN LET Z-Z + 2*RND 
IF Z >7 THEN LET Z=Z-2*RND 
PRINT PT 11., X, 

IF PEEK iPEEK 16393+PEEK 16 
:56) -128 THEN GOTO 335Ü 
GOTO 8240 
FOR 1=1 TO 15 
NEXT I 
GOTO 9035 

REM CARTEL DE ESCRITOR 
REM 


PRINT TAB 6, 


8405 PRINT THE; 6j "ChRTEL DÉ ESCR 
ITOR” 

8410 PRINT TPB 6; " 


8415 PRINT 

8416 PRINT 

3417 PRINT '-> 

342Ü PRINT "ENTRA TU NOMBRE CüfiP 
LETÜ" 

3425 PRINT 

34-30 PRINT "PORQUE VO UÜY P HACE 
PLO MARCHAR" 

3435 PRINT 

6440 PRINT ’* p TRP'JES DE TODA Lfl 
PANTALLA" 

3445 INRUT B$ 

3450 CLS _ 

3457 PRINT AT 5,ü,"t***í+****+t+ 

üiVpRiía'n'iV.ir-************ 

3459 PRINT + AT ' ll?ü .V.ViViVAW 

i_■ ■ ■ ■ ■ ■ l ■ i ■ ■ i m a n n a ■ * 

3460 PRINT hT 2Q , O , 


3465 FOR 1=1 TO 2 
3470 LET RbLEN B$ 

3475 LET C = 1 

3430 IF C <31 THEtJ PRINT hT 1Q 
1 -C) B$ 11 TO CJ 

84 55 IF C ,• = 31 AND C<=LEN 6$ 7 
PRINT AT 10,0.5$ (C-30 Tu C) 
8490 IF C > =LEN 6$ THEN LET 5$ 


FHEN 


3495 IF LEN 6$=P- 

10 

3500 LET CaC+1 

8505 GOTO 8430 

8510 NEXT I 

3515 FOR 5=1 TO 10 

8520 PRINT PT 10,12, "SSBSB 1 

3525 PR INT PT 10.12 . " AL-1 O 3 

8530 NEXT 5 

3535 FOR I-i TO 30 

3553 NEXT I 

3540 GOTO 9035 

5600 REM H TRPFA Lh E3TPlL u .h 

3601 REM ■HHHUHHHttlK 

8605 PR INT TPB I * * - ■ 


GOTO 


Lo 
HEN 
= B $ 
35 


OCIO PRINT íhb 1. 

ELLA PERDI! 

8-r.- LO í rij; TOE- i. 

¿ 62 ¿VoR*in lu E 

• - • PRINT 
36 50 Í4L aT I 
8e- 55 PRINT "MHi l 
DILh EN él • 

-r- L. *4- O P‘ í\ I N T 

•■•64 5 PRINT "C IElO .TRATA DE iVfPAP 
i-iRL H " 

3650 PRINT 

-£■6.5-5- PRINT "hPkI t 7 m ’ £' ’í-hKh IP 
H Lh Ib kl-h" 

•íftf 


lSTRELi_h PtR 


0665- PRINI APRIETA- 
h Lh DERECHA" 

8670 PR. 

3675 PRINT - 

36 8 ü PRIÍJT EL u-uLcO 

SEGUIDA - * 

ou-c6 FuR 1 -'I 7 0 35 
6636 Nt: * T 1 
36'VQ C L 5 
8 d y5- LET ’■ =0 
3 700 lET , -16 
8706 FOR R -1 7 0 6 
37 10 LET 3 - 1 1 TT i.RNE * 
371E : CÍ-‘ 1 O TG 20 
...'LO IF IIP E . $ = " 2" 


t-Y 


" F* H ft H IR 


IF- INKEY $* 


THEN LET 
*M" THEt-i LET 


3750 IF YsO THEN LET .=0 
3735 IF lwI THEN LET 7=31 
6740 CLS 

8745 PR INT AT T . 3 . " * " .. AT 20 , 


5=, THEÍi LET 
3=7 + 1 THEtJ LET 
5 =Y THEN GOSUB 


3750 IF T =20 AND 

•* T 1 

8751 IF 1 =20 AND 
•-Él 

3755 IF T = 20 AND 

6860 

3760 IF 7=20 AND 5=7 +1 THEN GÜSU 

B 3350 

8765 NEXT T 

3770 NEXT R 

8775 FOR 1=1 TO 10 

3776 NEXT I 

6780 CLS 

8735 PR INT AT 6,0 " B IEN , ' ’ ; P $ 

3790 PRINT AT 10,O,"ATRAPASTE ", 
>. , "E3TRELAS" 

o 79 5 p P IN T AT 12 . 0 " h M O R ñ HAREMO 

8 ALGO HAS" 

8300 FOR 1=1 TG 33 
350 5 ¡;E."T I 
3305 GOTO 9035 
8350 FOR 1=1 TO 10 
3855 PRINT AT 20,7".; HEJ 
8560 PRINT HT 20,r,'++ 

8365 NEXT I 
3-370 PETURN 

9000 REM INTRODUCE IOfJ GENERAL 

9001 REM 


HüLh,MI NuMBR 


9005 PRINT AT 
E E5 SINCLAIR" 

9Ü06 PRINT AT 9. . +♦-***-•: + + *#■* + + 

3015 "PRINT Át 12,5, "CUAL ES TU N 
Ui-ÍBRt?" 

9016 PRINT AT 13 ,3;" +***4+ * ***+ * 

9020 It JPUT A $ 

9021 PPINT 
90LL Phl i NT 
9023 PRINT 

9025 PRINT + + * + + * + t + + 

9026 PRINT "hHORA, , h$ 

9027 PR It JT "HAGAMOS ALGO DIVERTI 
DO" 

9023 PRINT i A COMENZAMOS.. 

9029 PR INT + + 

90'oVoí/lal TO 55 
9053 HE -T I 
9005 CLS 

9040 REM SELECCION DE ACTIUIDADE 

904 1 peí- ijriMiiiM—i—imiiwi 

9045 FOR 1=1 TO 10 
904c HE■ T I 
9049 PPND 

905D LET A = INT - 1 + lü+RND) 1 
9055 IF A 7 THEN GOTO 9090 
2O 6 O Lí- T f, = 1 NT - 1. 1 F10 + RND 'i 
9065 IF B 7 THEtJ GOTO 2000 
ET C =11 JT i 1 + 10 +RNDJ 
IF C *+ í HEN GOTO 3O00 
GOTO 4C0O 

-ET D=INT ¡. 1 í- ICHRNL-m 
IF D 3 THEN GOTO i O 
GOTO 100ü_ 

Rt.f, 


90 yq 
y O i 5- 
o v 
9090 
9095 


•LlNT 


' NO 


, PROEZA lc 


9120 PRIÍ,' 
9 1L5 PPIlíf 
9150 PPINT 


fi" 

PRINT " 


mu o o m 


PRItíí 


sa M : ■ 

m 

PkIIiT 


m a 

£ 

y .80 

PPINT " 



9-5-5- 

PPINI * 


II 1 i 1 

916-0 

PRINT " 


II ■ 

y ¿ 5 

PRINT " 


UHHKfiHHHU 

yl70 

FOR 1-1 T ■ J 

25 



HF..-T I 



91 .'5 

C L 5 



9130 

RlTL-RH 



9200 

PEM PEi.PUE 

ST A 

BIEN DhDih 

A 2 0 i 




9202 

t£ LS 



920 3 

PRINT 



9205 

PPINT "MU. 

E-IE 

U ’,A $, ",ERES 

JIJA 

E STPEI LH" 



92 3 0 

PPINT 



92 15 
92 ¿0 

PR IN T 

PRINT " 



9225 

PRINT " 


■ a 

9230 

PRINT " 


■ - 

9235 

PRINT " 


na o o a 

■ 

9240 

■" 

PRINT '* 


aa t a 

9245 

■ 

PRINT " 


■ a 

9250 

PPINT " 


a b la 

9255 

PRINT " 


ai ib 

9260 

PRINT " 


i a 

9265 

PRINT " 


a a 

9270 

PRINT " 


■hbhb 

9275 

FOR 1=1 TO 

25 


y- 

1ÍE AT I 



9230 

FOR 1=1 TO 

3 


9 5 3 5 

CLS 



9290 

PRINT 




PRINT 



9 5D5 

PRINT 



9 ¿ 1 ü 

PRINT 



9315 

PPINT " 


•t + + 

9320 

PPINT " 


+ * * 

9325 

PPINT " 


+ í ■* 

9 3 30 

PPINT " 



y 3 5 

ppit-jr - 


- +■•* + * *•* = + 

9 34Ü 

PRINT " 



934 5 

PRINT " 


+ * * 

9350 

PPINT " 


•4- ■? t 

9 355 

PPINT " 


+ + *4- 

9360 

tJE"*T I 



9 365 

GOTO 9035 




9600 REM T IT 
9 o 01 PEI ' 



íS’&m .. . 

9505 PRINT 
*++**++****' 
9836 PRINT 
9340 PRINT ' 

PARh chicos* 

9o45 PRINT 
9570 PRINT " 


9575 PRINT 

• - 2-v -1 , j#r 

9680 PR11 . T 


DIVERSIONES 


9885 PRINT *’ 

9666 FOR; £ =i T 
9537 HE.-.T I 

9 5. S 3 1 7 ü f O 9 000 
A 900 PE ti HjiT Q 
9 901 PLt 

9*90 REM M¿ 
9991 PEM 
■’l.'-jl ¡■•Pli.t PEE? 
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EL LENGUAJE DE MAQUINA 


■Mi- 


CONOC 




E n estos artículos explicare¬ 
mos un poco el funciona¬ 
miento interno de las micro- 
computadoras y cómo programar 
el lenguaje de máquina para lue¬ 
go encarar algunos proyectos e- 
lectrónicos. 

Nos centraremos en los micropro¬ 
cesadores de 8-Bit, especialmen¬ 
te en el Z-80 (Sinclair y similares) 
y el 6502 (Commodore, Apple, etc.). 
Un microprocesador es un bichito 
capaz de ejecutar una serie de ins¬ 
trucciones previamente almace¬ 
nadas en una memoria electróni¬ 
ca. Estas instrucciones son pare¬ 
cidas a las del BASIC que todos 
conocemos pero mucho menos 
poderosas. Por ejemplo nos mane¬ 
jaremos con números de 8-Bit que 
pueden tomar valores entre 0 y 
255 (decimal), claro que con varios 
de estos números formaremos nú¬ 
meros más grandes como los del 
BASIC, tampoco podremos multi¬ 
plicar directamente sino que de¬ 
bemos hacerlo con sumas sucesi¬ 
vas u otro método que se nos 
ocurra. 

Como ya dijimos un micro debe 
tener conectado por lo menos me¬ 
moria donde tener el programa 
que se está ejecutando y además 
un circuito para saber qué letra se 
apretó en un teclado, otro que ge¬ 
nere una imagen de video que se 
pueda conectar a un TV y demás 
interfases para grabador, disco, 
etc. 


La memoria la tenemos en dos 
tipos: 


-ROM (read only memory) que es 
memoria que sólo se puede escri¬ 
bir, en este tipo de memoria está 
normalmente el programa intér¬ 
prete que transforma las instruc¬ 
ciones de BASIC en instrucciones 
que entienda el micro. 

-RAM (random access memory) en 
la que se puede leer y almacenar 
datos o programas ya sean en len¬ 
guaje de máquina o BASIC. 

Los micros se conectan con los 


X? 


E2E 


n fr qd a a Qi 
dddd d 


DD 


m a a d n a 


o 


demás chips (como la memoria) 
mediante los llamados buses que 
son tres: 

-Bus de datos 
-bus de direcciones 
- bus de control 

Veamos un ejemplo: Cuando el 
micro escribe en una posición de 
memoria primero le dice “donde” a 
la memoria (la dirección) y luego le 
dice “que” quiere escribir (el dato). 
Como podrá adivinarse la direc¬ 
ción se la dice a través del bus 
de direcciones y el dato a través 
del bus de datos, faltaría decir que 
también le dijo a la memoria que 
quería “escribir” y no “leer” a tra¬ 
vés de un cable del bus de control. 
Ahora bien,cómo son los“buses”? 
El bus de datos está compuesto 
de 8 cables ordenados del bit me¬ 
nos significativo (LSB) al más sig¬ 
nificativo (MSB). El bus de direc¬ 
ciones está compuesto de 16 ca¬ 
bles ordenados por los cuales se 
puede transmitir un número de 0 a 
65535. El bus de control está for¬ 
mado por varias líneas con usos 
distintos,entre ellas la que ya co- 


, 3 * 


tinta qpdc 


nocemos para decirle a la me¬ 
moria si se quiere leer o escribir, 
técnicamente conocida como 
R/W (read/write) y otras que ya co¬ 
noceremos (reloj, interrupts, reset, 
etc.). 

Ya dijimos que tenemos 65535 
posiciones de memoria posibles 
en las que podemos escribir o leer 
un dato o byte que es un número 
entre 0 y 255-, esto lo podemos ha¬ 
cer también desde el BASIC con 
las instrucciones PEEK y POKE. 
La instrucción PEEK sirve para 
leer una posición de memoria por 
ej.: 


R-PEEK (12000) 

lee en la variable A el contenido de 
la posición de memoria 12000 por 
supuesto que el número que nos 
devuelve estará comprendido en¬ 
tre 0 y 255. 


La instrucción: 

POKE 1 2000, 34 
cambiará el contenido de la posi¬ 
ción 12000 por 34. 

No siempre haremos algo útil con 
estas instrucciones porque no to- 
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dos los números de 0 a 65535 es¬ 
tán ocupados por memoria, para 
saberlo debemos fijarnos en el 
“mapa de memoria” de nuestra 
máquina que nos dice si hay y qué 


tipo de memoria hay en las distin¬ 
tas zonas de memoria, así como 
también qué se guarda habitual¬ 
mente en ellas. Por ej.: 


DIRECCION 

16384_\ 


32768 


65535 


ZONA 

DE 

ROM 

En esta zona sólo podemos leer. 
Acá está el programa intérprete 
BASIC. 

ZONA 

Acá podemos leer y escribir y se 

DE 

guardan las variables, programas 

RAM 

BASIC, memoria de video, stack, 


etc. 

ZONA NO USADA 


ORAS 


grama seguramente estamos tra¬ 
tando de escribir en la ROM: 

10 PRINT PEEK (3472) 

20 POKE 3472,23 

30 PRINT PEEK (3472) 

) RUN 
47 

Al escribir en la zona de RAM pue¬ 
de llegar a estropearse algún pro¬ 
grama BASIC que tengamos car¬ 
gado en ese momento pero no 
trae ninguna otra consecuencia. 
Existe una zona de RAM conocida 
como memoria de video en la cual 
todo lo que esté escrito aparecerá 
en la pantalla en su equivalente de 
la tabla de caracteres de nuestra 
máquina, o (caso SINCLAIR 2068) 
cada bit de cada byte de esa zona 
representará un punto en la pan¬ 
talla. Lea en el manual de su má¬ 
quina donde está esa zona y prue¬ 
be de hacer algunos POKEs por 
ahí. En el caso de la ZX81 la zona 
de video es más complicada; ya 
publicaremos un programa para 
escribir en esta zona. 

En general puede resultar intere¬ 
sante “mirar” las distintas zonas 
de memoria con un programa co¬ 
mo el siguiente sobre todo con 
algún programa cargado con algu¬ 
nos REM con mensajes y anotar 
en qué direcciones se guardan es¬ 
tos mensajes 


Al decir que en la ROM no pode¬ 
mos escribir no quiere decir que 
vamos a romper la máquina si lo in¬ 


tentamos sino que por más que lo 
intentemos no podremos hacerlo. 
Por ejemplo, con el siguiente pro¬ 


10 INPUT “DESDE: ”;D 

20 INPUT "HASTA: ”;H 

30 FOR l-D TO H 
40 PRINT CHR$ (PEEK (I)); 

50 NEXTI 

Existe mucha bibliografía sobre 
microprocesadores pero es muy 
importante verificar que nos sirva 
para nuestro tipo de máquina,tam¬ 
bién sería interesante un repaso 
sobre sistemas de numeración bi¬ 
nario, decimal y hexadecimal. 

Hasta la próxima. 

Marcelo Oscar Martínez 


m 
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PROGRAMAS 



ALUNIZAJE 


Habían pasado dos horas y la computadora central 
seguía sin funcionar. Aquel campo de energía había 
afectado a la estabilidad de la nave más de lo que 
creíamos. Seguíamos descendiendo y llegado el 
momento, tendríamos que hacer uso de los 
controles manuales. Todos estábamos 
aterrorizados: el alunizaje siempre lo había hecho 
el ordenador central, y ahora no era más que un 
montón de chatarra estéril. 

Habíamos aprendido a manejar la cápsula con 
relativa facilidad: el mando “7” la propulsaba hacia 
arriba, y el “5” hacia la izquierda. Todo era sencillo 
en el simulador de vuelo. 

Pero ahora no había simulación. 

En algún lugar de aquel planeta se encontraba la 
base de aterrizaje y, posiblemente, la muerte. 
George fue el encargado de efectuar la maniobra; 
con manos sudorosas y torpes conectó los 
retropropulsores, había comenzado la cuenta 
atrás!, lentamente la nave descendió, hasta que un 
pequeño descuido provocó una explosión. Esta vez 
no habíamos tenido suerte. Desconectamos el 
Spectrum y decidimos volver a intentarlo al día 
siguiente. 


PPOHÍBÍDO 

£S7ACÍON/AR 

OB'll a 20 (18. 

22 ^ 
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PANTALLA 


Comp.: ZX SPECTRUM 
Conf.: 16 K 

Cías.: ENT 



120 RESTORE : FQR i=1 TO 16 

130 LET S =USR (CHR$ (144 + i-l)) 

14.0 FOR jal TO 8 

150 RERD 3: POKE (S+j-l),9 

160 NEXT j 

170 NEXT i 

180 DRTR 0,0,1,1,7,7,31,25,0,0, 
128,128,224. ,224-, 24-8,152,53,107,1 
27,24-3,96,96,192,192,172,214-, 254- 
,207,6,6,3,3 

190 DRT& 1,1,1,1,1,1,1,1,224-,17 
6,140,134,129,135,14.0,176,1,1,7 , 
1,7,7,31,25,224,123,224,224,248, 
152 

200 DRTR 0,0,0,4,5,15,6,15,0,0, 
0,0,96,192,224,246,27,7,3,6,0,0, 
0,0,120,163,112,32,0>0,0,0 
210 DRTR 160,67,38,60,24,48,96, 
37,4,154,244,124,6,4,4,6,194,96, 
32,36,104,120,79,193,130,14,12,3 
6,124,78,195,2,0,0,0,0,0,0,0,0 
220 LET ld *0 
230 GO TO 8000 

1020 LET bx=INT (RND*21): IF bx < 
11 THEN GO TO 1020 
1030 LET lt = bx*8: LET rt*(bx+4)* 
8 

1040 PRINT RT 21,bx; M i M : PRINT R 
T 21,bX 41; PRPER Si INK UVV: 
PRINT RT 21, bx+3j 
1050 LET dia-1: GO SUB 1500 
1060 LET dial: GO SUB 1500 
1070 RETURN 

1530 LET lya8+(di al)*16 

1540 LET IX» ( (ft+24) * (di =1) ) + (U 

* (dia-1) ) 

1550 LET upa255-(dia-1)*255 
1560 IF di*l THEN PLOT ft,8: DRR 
U INK 2;24,16 


1570 PLOT ix, ly 

1580 LET aaRND: LET ry*(U<*.6)- 
(a>.6))*(INT (RND*4S)+1) 

1590 LET fX =di *(INT (RND*16)+1) 
1600 IF di * (IX+fX) >UP*di THEN LE 
T rx=up-lx 

1610 IF ly + ry >144 OR ly + ry <0 THE 
N LET ry =0-ry 

1620 LET ixaix + rx-, LET lyaiy + ry 
1630 DRRU INK 2:rx,ry 
1640 IF IXOUP tHEN SO TO 1550 
1650 RETURN 

2020 PRINT RT h , X , " " 

2030 FOR j=l TO 5 

2040 PRINT RT h +1, X ; "RB": PRINT 

RT h+2,x;"CD M 

2050 BEEP .05,-(RND*4S) 

2060 FOR i al TO 10: NEXT i 
2070 PRINT RT h+1,X;"IJ": PRINT 
RT h +2,X;"KL" 

2080 BEEP .05,-(RND*48) 

2090 FOR i al TO 10: NEXT i 
2100 PRINT RT h + 1, X; "MN": PRINT 
RT h +2,X;"OP" 

2110 BEEP .05,-(RND*48) 

2120 FOR i al TO 10: NEXT i 
2130 NEXT j 

2140 FOR i=h+l TO 20: PRINT RT i 
— 1 , X ,' , RT i , x , De , RT i +1 , X , 

RB": NEXT i 
2150 RETURN 

8020 BORDER 3: INK 0: PRPER 7: O 

UER 0: FLRSH 0: CLS 

8030 GO SUB 1000 

8040 LET Xa© : LET hax 

8050 LET Oh ah: LET OXax 

8060 LET Xax + .5* (X <30)-(INKEY$=" 

5“) 

8070 LET h =h + .5-íINKEY$a"7")* (h > 
0) 


:raS2 OR cralli 


BEEP .5,15: BEE 


8080 PRINT RT Oh,ox;*' " : PRINT 
RT Oh+i,ox i " 

8090 PRINT RT h,x; M RB": PRINT RT 
h+l,x;"CD" 

8100 LET craflTTR (h+2,x)+RTTR (h 
+ 2,X +1) 

8110 IF c r <58 OR 
THEN GO TO 8140 
8120 GO SUB 2000 
8130 BEEP .5,17: 

P .25,13: BEEP .25,12: BEEP .5,1 
0: BEEP .25,13: BEEP .25,12: GO 
TO 8210 

8140 IF h>=20 THEN GO TO 8120 
8150 IF cra82 THEN LET Id al: GO 
TO 8170 

8160 IF Lda0 THEN GO TO 3050 
8170 FOR i al TO 6: PRUSE 2S: BOR 
DER i: NEXT i: BORDER 3 
3180 PRINT RT 18,bx+1;"EF": PRIN 
T RT 19,bX+l;"GH" 

8190 BEEP .125,12: BEEP .25,19: 
PRUSE 10: BEEP .12S,12: BEEP .2S 
,19: PAUSE 10: BEEP .125,12: BEE 
P .25,19: PAUSE 10: BEEP .125,12 
: BEEP .25,19: PRUSE 10 
8200 BEEP .25,12: BEEP .125,14: 
BEEP .125,15: BEEP .125,22: BEEP 
.125,22: BEEP .12S,15: BEEP .12 
5,14: BEEP .125,19: BEEP .125,14 
: BEEP .25,12 

8210 FOR i al TO 100: NEXT i: CLS 
: GO TO 220 
8220 SfiUE "alunizaje'' 

3230 RUN 














PROGRAMAS 


BIORRITMOS 


ZX SPECTRUM 

16 K 

ENT 


Para los aficionados al tema, este programa ofrece 
las tres curvas a lo largo de todo el mes. 


1 CLS : RESTÜRE 

4 INK 1: FLRSH 1: PRINT RT 10 
,0¡" BIORRITMOS 

INK 0: FLRSH 0 

10 INPUT "indique fecha de nac 
iwi en to“"Di a ";a;" Mes ";b; M 
Rno"j c 

£0 INPUT "indique fecha actual 
".."Mes d;" Rno ";e 
25 CLS 

30 LET teINT ( ( t*-C)*365.25) + ( 
(xf-b) *30.35) -a) 

800 FOR r»0 TO 255 
810 PLOT r,10 

815 IF r*INT tr/8)*8 THEN FOR u 
*10 TO 20: PLOT r .U: NEXT u 
820 NEXT r 

830 PRINT RT 21.0;"1 10 

20 30 '' 

84.0 PRINT RT 0.0;; INK 1;" fiSiC 
o INK 2; "diental "; INK 4; "e 

moc iona i" 

900 FOR r=l TO 3 
905 RERD u 

910 LET l*2*PI*( t -(INT (t/U)*U) 

) /U 

920 LET K«2*PI*(33-u)*.03 
1000 FOR asi TO K +1 + (2*PI) STEP 
. 1 

1010 PLOT INK ((1 RND U*23)+Í2 R 

ND u=23) + <4 RND u»33)); (a-l)*<35 

-28+U).90+SIN a*60 

1020 NEXT a 

1030 NEXT r 

1040 DRTR 23.28.33 

1050 INPUT "Otro biorritmo? S "; 

a $: IF a$ (1) s"í" THEN GO TO 1: I 

F a*="n" THEN GO TO 1500 

1500 CLS 

1565 STOP 

9999 SRUE "BIORRITMOS" LINE 1 



SIMON 


ZX SPECTRUM 

16 K 

ENT 


El conocido juego de “Simón” implementado para 
el Spectrum genera secuencias aleatorias de 
colores y sonidos. 



1 CLS : LET y$ = " 

2 PRPER 7: BÜRDER 5: 

3 PRINT hT 4 . i; "■“ , “ 

. . . 1 "''; RT 


CNK 5 




3 INK 0: PRINT RT 9,1; 
PUTRDORR LE PROPONDRE UNE 
DE COLORES OUE UD. TENDRR 
TRODUCIR EN ORDEN. CURNDÜ 
GRE, LH SIGUIENTE SERIE 
RRR EN UNO." 

9 PRUSE 4-00 
10 DIN r (30) : DIM 
15 PRPER 7: INK 0 
LS 

20 POR i =1 TO 30: 

(RND*3): NEXT i 
30 FOR n = 1 TO 30 
4-0 INPUT "PUlse ENTER 
& te Listo."; LINE 
50 POR c = l TO n 
60 LET CN=R CC) : 

CLS : NEXT C 
POR C = 1 TO n 
INPUT "(?Oue 
a (c) 

IP a (c) < > INT 


' LR CÜM 
SERIE 
OUE IN 
LO LO 
RUMENT 


a (30) 

burder 7: c 

LET f(i)=INT 




cuando e 


GO SUB 300 


numero de co Lo 


S0 
90 
100 

r?) 

110 IP ate) o INT a (O OR a(c)<0 
THEN INPUT "Entre O y 7. vuelva 
lo a introducir:'-' ;a(c): GO Tu 11 
0 

120 LET ensate): GO SUB 300 
130 IP ate) orto THEN BEEP 2, - 
20: GO TO 130 
140 N E XT C 

PRINT HT 16,0;"Ha acertado 
correctamente. 

NEXT n 

PRINT RT 15,0;"HE 


ISO 

" ¿ n; ' 

160 
170 
DO" 

ISO PRINT HT 16,0;"TE 
OCRDO!!i!" 

187 PRUSE ISO 

190 IP N >30 T_ 

200 FOR 1=1 TO N 
i; PRPER R (I) ; INK 
.5,R (I) *5-20: NEXT 
210 CLS 
£40 STOP 

300 PRINT RT 0,0; 

ER CN;y %: NEXT I 
310 PRINT RT 6,14; 

EP 1,CN *5-20 
320 RETURN 
9999 SRUE "SIMON" 


HRS UENCI 
HRS EQUIU 


ET N =30 
PRINT BRIGHT 
R (I) ; : BEEP 0 
I 


BRIGHT 1; PRP 
INK 9;CN: BE 
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GLOSARIO DE TERMINOS 
INFORMATICOS 


A partir de este número, K64 irá publicando en esta sección un glosario con los 
términos más comunmente usados en textos y revistas de computación. Como 
esta jerga mantiene la mayoría de sus términos en inglés, nos remitiremos a ella 
dando la mejor traducción y explicación posible. 


R/D - Analog to Digital: 

La conversión de una señal 
analógica a una representación 
digital (o binaria), de modo que 
puede ser almacenada en un 
ordenador. Por ejemplo, un valor 
analógico de 25 Voltios podría 
convertirse al valor binario 11001. 

ACCESS TIME: 

Al tiempo que transcurre entre el 
direccionamiento de un 
dispositivo digital hasta que la 
información enviada a ese lucjar 
queda disponible para ser leída 
con seguridad. 

ACCUMULATOR: 

Una memoria de uso transitorio 
que se usa para operaciones 
matemáticas rápidas en un CPU. 

ADDITTION WITH CARRY 
INSTRUCTION: 

Operación de suma que tiene en 
cuenta la condición de “carry flag” 
(o de “me llevo una”) de una 
operación anterior de adición. De 
especial interés en aritmética de 
bytes múltiples. 

ADDITTION WITHOUT CARRY 
INSTRUCTION: 

Operación de suma que ignora la 
condición de “Carry flag” al 
comienzo de una operación de 
edición. 

ADDRESS: 

La especificación de una sola 
dirección, en especial, de una 
“palabra”, en un sistema de 
memoria o de bancos de memoria. 

ALGORITHM: 

Conjunto de reglas y 
procedimientos lógicos 
que describen como 
se puede resolver 
un problema en un 
número determinado / 
de pasos. 

ALU - Arithmetic 
Logic Unit: 

Parte de un 
microprocesador 
que realiza las 
operaciones 
aritméticas y lógicas. 


ANALOG: 

Valoro magnitud física,dispositivo, 
etc. cuyo cambio se produce en 
forma continuada, en vez de por 
incrementos discretos. 

ARITHMETIC INSTRUCTIONS: 

Un tipo general de instrucciones 
de microprocesador que resulta 
en operaciones matemáticas 
(cono, suma, resta, bool, etc.). 

ASCII ■ American Standard Code for 
Information Interchange: 

Norma muy difundida para la 
representación de números, letras 
y otros símbolos, utilizada para 
intercambio de información entre 
dispositivos de entrada/salida 
como teclados, pantallas, 
impresoras, etc. 

ASSEMBLER PROGRAM: 

El programausado paraconvertira 
símbolos mnemónicos de 
instrucciones de máquina y 
direcciones, en instrucciones y 
direcciones reales interpretables 
por el Microprocesador. 

ASSEMBLING A PROGRAM: 

Al proceso de preparar un 
programa para la ejecución del 
mismo por un microprocesador. 
Generalmente se refiere al 
proceso de convertir 
representaciones mnemónicas 
usadas por los programadores, a 


códigos reales binarios usados en 
el CPU. 

AUDIO MAGNETIC TAPE 
STORAGE UNIT: 

Se refiere a un dispositivo capaz 
de almacenar programas de 
ordenador y/o datos en cassettes 
ordinarios de audio, usando tonos 
para la representación de la 
información binaria. 

AUTO INDEXED ADDRESSING: 

Un modo de direccionamiento que 
resulta del contenido de un 
registro de índice siendo 
automáticamente alterado poruña 
cierta cantidad cada vez que se 
ejecuta una instrucción. 

AVERAGE RANDOM ACCESS 
TIME: 

El tiempo promedio requerido 
para alcanzar un punto específico 
(o porción de datos) a una 
dirección elegida aleatoriamente 
cuando la unidad está en una 
dirección que también había sido 
elegida aleatoriamente. Para 
cintas magnéticas y discos, el 
tiempo promedio de acceso es 
generalmente igual a la mitad del 
tiempo del caso peor. 
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La página de Epi 


Sólo Epi 
le da un 
computador 

para Ud. solo 


• Grupos hasta 
8 personas. 

• Turnos: mañana, 
tarde y noche. 

• Niños, 
adolescentes y 
adultos. 

• Taller de 
computación para 
toda la familia. 


CASSETTES PARA TI-99/4A 

BASIC 

EXTENDIDO 

SIMULADOR DE VUELO 

LABERINTO 3D 

GUERRA EN EL MAR 

CONTROL DE TRAFICO AEREO 

GUERRA DE GUERRILLAS 

JUEGO DEL 15 

CRUCES 

EL RESCATE DE LA EPITUFA 

JUEGOS DEL PAR 

FLINDERS 

AJEDREZ DEL CABALLO 

PARACAIDAS 

GENERALA 

RANAS II 

EL VIAJE DE LA BOA 

GOLF 

ENCUENTRE EL TESORO 

ORGANO ELECTRONICO 

ESQUELETO 

SUBGUERRA 

GUERRA DE HORMIGAS 

CAVERNA 

LABERINTO DE ARIEL 

EDITOR DE TEXTOS 

ADVANCE 

TRUCO 

OFIDIOS 

BLACKJACK 

ORDENANDO CUADROS 

BACKGAMMON 

99’ INVADERS 

CONCORDIUM 

PAC-MAN 

CONCENTRACION 

HORDAS 

TANQUE LASER 

MONOPOLIO ESPACIAL 

URANIO 

BASE LUNAR 

FORMATOS DISPONIBLES 

CASSETTECAS 

x 4 = $a 4.990.- 

CASSETTECAS INDIVIDUALES 
SISTEMA SKINPACK 

x 6 = $a 6.490.- 

118 Títulos 

x 12 = $a 9.990.- 

a$a 1.100.-c/u. 


SISTEMAS 


Las microcomputadoras son equipos aptos para procesar 
sistemas comerciales, verifíquelo!, EPI se lo asegura. 


Disponemos: 

• Stock 

• Facturación 

• Clientes 


• Cuentas Corrientes 

• Contabilidad 

• Listas de precios 


y también sistemas a su medida. 


□ 


7// 


1 EMPRESA PARA 
INFORMATICA 


n$g. 


INSTITUTO: Suipacha 946 1er. Piso (1008) Capital. 
VENTAS: Viamonte 1479 8 o “B” (1055) Capital. 
Teléfonos: 311-8618 y 49-7985. 


























PROGRAMAS 


EL RETORNO DEL JEDI 

El juegoconsisteentratardesalirvivode un parque, 
esquivando árboles. 

Usted maneja una moto y sus comandos son el “6” o 
y el “7” con lo que podrá desplazarse hacia abajo o 
hacia arriba respectivamente. 



PANTALLA 


Comp: TS 1000 
Conf.: 16 K 

Cías.; ENT 


£/£• ■ H t H, 

Estas a uuB mandos de una mot o - 
JET IMPERIAL. EN El. bosque de en- 
UOP. l.OS REBELDES se han infil¬ 
trado En la luna y urn h dolar 

EL GENERADOR DE ENERGIA QUE PRO¬ 
TEGE h t_H estrellh de la MUERTE. 

TU MISION CONSISTE EN SALIR DEL 
BOSQUE ELUDIENDO LOS. OBSTACULOS 
PARA AVISAR Al PERSONE DEL GENE¬ 
RADOR . 

ACÉPTmS TU MISION '> 



RELAJATE. 

MU, BIEN, TUS MANDOS SON ESTOS 
i . ,.hRRIBA 
ó" . ..ABAJO 

NO TE AlERQUEÍ A ¡_OS ARBOLES DE 
FRENTE O CHOCARAS. TAMPOCO TE A- 
CERQUES AL BORDE DEL BOSQUE. 

11 phshs por un árbol v este de 

SAP APEOE, SERA DEB IDO A QUE MAS 
SOBREUOlADO Su COPA, 

mH , _‘.'TPh cosa, mmsssmaixmsm. 
BuThi¡3 h I5»hDD . 

l zQ £5 T.-DO QUE TEfTu&fe • . 

- Qk 5H CU u0 UIEP T£llh. 

COMO NO i O , • ímM HkIl ü Tt i E. JhhE 
. UEOIPr El Nl MEkü DE ARBOi ÉS üüt 
P uHltTHhg Em cü B050UÉ . 

o 



q a 
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PROGRAMAS 


- •’ < v EL RETORNO DEL , 


60 PR INT 

9^PRINT 
100 PRINT "RELAJATE." 

110 PRINT " ESTR5 R L05 MRNDOS D 
E UNR MOTO- JET IMPERIRL EN EL 6 
ÜSOUE DE EN-DuR. LOS REBELDES SE 
HRN INFIL- TRRDÜ EN LR LUNA Y V 
HN R VOLAR EL GENERADOR DE ENER 
GIR OUE PRO-TEGE R LR ESTRELLA D 
E LR MUERTE." 

120 PRINT 

130 PRINT "TU MISION CONSISTE E 
N SALIR DEL BOSQUE ELUDIENDO LOS 
OBSTACULOS PRRR AVISAR AL PERSO 
NL DEL GENE-ARDOR." 

140 PRINT 

150 PRINT "RCEPThS TU MISION ?" 
160 LET R$ =INKEY$ 

170 IF A$ ="S" ThEN GOTO 200 
180 IF A $ = "N" THEN GOTO 3000 
190 GOTO 160 

200 FOR N =21 TO 3 STEP -1 
210 PRINT RT N , 0" 


220 NEXT N 
230 PRINT 
SON ESTOS: 
240 PRINT 

250 PRINT 
260 PRINT ' 
ARBOLES DE 
AHPOCO TE A- 
BOSQUE." 

262 PRINT 

263 PRINT ' 
L Y ESTE DE- 
O R QUE HAS 


¡MUY BIEN , TUS MRNDOS 

.7"". . .RRRIBA 

""6"".■.ABAJu" 

'NO TE ACERQUES R LOS 
FRENTE O CHOCARAS. T 
CERQUES AL BORDE DEL 


SI PASRS POR UN RABO 
SAARRECE. SERR DEBIO 
SOBREVOLADO SU COPA. 


270 

271 


• FRENO 


PRINT 

PRINT 


iü! 

INT 


:72 PRINT 
28© PRINT 
GAS SUERTE. 

285 PRINT 
IER TECLA." 
290 PAUSE 
FOR N = 
SCROLL 
NEXT N 
CLS 
CLS 
PRINT 
DEJARE 
QUE 


"AH, OTRA COSA, 
ESTAS AUISADO." 


NO HA 


300 
310 
320 
1170 
1220 
1260 
. TE 
ARBOLES 
OSQUE . " 

1262 PRINT 
1265 INPUT 
1268 PRINT 
1270 IF OB < 
O 1252 
1320 CLS 
1330 FAST 
1340 FOR Xs 
341 PRINT 


¡¡ESO ES TODO, QUE TEN 
AT 21,0;"PULSA CUALQU 

4E4 

0 TO 21 


'COMO NO SOY TAN MALO 
ELEGIR EL NUMERO DE 
""PLANTARE"" EN EL B 

" (50/200 " 

OB 

OB 

50 OR OB > 200 THEN GOT 


0 TO 31 

AT 0,X;"B"; AT 21,X;" 


1342 NEXT X 

1344 FOR X=1 TO 20 _ 

1345 PRINT AT X,31;"fl M 

1346 NEXT X 

1347 PRINT AT 11,31;" ";AT 20,31 
";AT 15,31;" ";AT 6,31;" ";AT 

g 3 ^. 

1350 FOR 1»0 TO OB 

1352 LET RRBLINsINT (RND#19)+1 

1353 LET RRBCOL.1NT (RND#29)+1 


1354 PRINT RT flRBLIN,ñRBCOL;"B" 

1355 NEXT I 

1360 LET MOT = INT <RND*20) 

1370 LET JET = 0 

1360 PRINT RT MOT , JET;“>" 

1400 SLOU 

1500 PRINT RT 21,0; "C 


PULSA CÜHLOU 


IF.P TECLA 


1510 PAUSE 4E4 

152^R^T AT 21 Q " «iHH BBa3HB3 

1718 LET C=0 

1719 PRINT AT MOT,JET;" " 

1720 LET MOT = MÜT +>(INKEY $ = "6") -(I 
N K EY $ = " 7 " ) 

1730 LET JET=JET+1 

1731 LET C=C + 1 

1740 PRINT AT MOT,JET;">"; 

1741 IF JET = 31 THEN GOTO 1900 
1750 IF PEEK (PEEK 1639S+PEEK 16 
399*256)=CODE "0" THEN GOTO 1770 
1760 GOTO 1719 

1770 PRINT AT MOT,JET;"Ü";AT MOT 
,JET;"f";AT MOT,JET;" " 

1775 PAUSE 50 
1800 CLS 

1810 PRINT "HAS COLISIONADO CQNT 
RA UN ARBOL, LO SIENTO." 

1820 GOTO 1960 
1910 PAUSE 50 
1920 FOR N=0 Tü 21 
1930 SCROLL 
1935 NEXT N 

1940 PRINT AT 0,0;"ENHORABUENA, 
SALISTE DEL BOSQUE SIN PROBLEMAS 

1960 PRINT "CONSEGUISTE "; C" PU 
NT OS." 

1970 PRINT 

1980 PRINT "ECHAMOS OTRA PARTID I 
TA? ÍS/N)" 

1990 LET B $ = INKEY $ 

2000 IF B$ ="5" THEN GOTO 2020 
2010 IF B$ = "N" THEN GOTO 2070 
2015 GOTO 1990 

2020 PRINT "JUGARAS EN LAS MISMA 
5 CONO ICIO- NES O NO ?" 

2030 INPUT C$ 

2040 IF C$="SI" THEN GOTO 1300 
2050 IF C$="NÜ" THEN GOTO 1200 
2060 GOTO 2030 

2070 PRINT "NO TIENES MIS NERVIO 
S DE ACERO. ME DAS PENA. BUENO . 

..AHI TE QUEDAS." 

£080 PAUSE 150 
2090 FOR N = 1 Tü 22 
2095 SCROLL 
2098 NEXT N 
2100 STOP 
3000 CLS 

3010 PRINT "ESTA BIEN, TRAIDOR, 
TU LO HAS QUERIDO..." 

3020 PRINT 
3030 PRINT AT 10,14; 

3040 PRINT AT 11,14; 

3050 PRINT AT 12,14; 

3060 PRINT AT 13,14; 

3070 PRINT hT 14,14; 

3080 PRINT AT 15,14; 

3090 PRINT AT 16,14; 

3100 PRINT AT 15,0; 

3110 FOR F = 1 TO 21 
3120 PRINT AT 11,12; 

3160 PAUSE 50 
3170 CLS 
3180 STOP 
4000 SAVE "JEDO" 

4010 RUN 



'BANG" 
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GRAFICOS 1 


ZX SPECTRUM 

16 K 

EDU 


Se logran infinitas variaciones de figuras 
semejantes a las que aparecen en los billetes. 
Pueden lograrse otras variantes, modificando los 
argumentos trigonométricos de las líneas 60 y 70, 
sobre todo usando números primos entre sí. 


10 RERD q: IF NOT q THEN STOP 

20 CLS 

4.0 LET f *0 

50 FOR n»0 TO 2*PI+.01 STEP 2* 
Pl/q 

60 LET x «(SIN Í29*ni+1)*60+68 
70 LET yaCCOS (ll*n ) +1)*60+28 
80 IF f=l THEN DRflUI X-a,y-b 
90 LET f»l: LET a=X: LET b*y 
100 PLOT X,y: NEXT n 
110 PAUSE 200 

120 DfiTfi 20,22,23,4.0,4.7,51,69.7 
2,80,83,0 
130 GO TO 10 


PANTALLA 
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INTRODUCCION A LA COMPUTACION 


QUE ES 

UN COMPUTADOR: 


n computador es básica¬ 
mente un “procesador de 
información” ¿qué signifi¬ 
ca esto? Sencillamente 
como se ve en la figura 1, los datos 
que se introducen al computador, 
ya sea desde un teclado o desde 
un disco magnético, son elabora¬ 
dos de alguna forma especial y fi¬ 
nalmente salen a través de una 
unidad de salida para que los pue¬ 
da usar cualquier persona. 

Ün ejemplo de este proceso es el 
que se produce mensualmente al 
liquidar los sueldos en cualquier 
empresa. Los datos de entrada 
podrán ser las listas de emplea¬ 
dos,con sussueldosdel mesante- 
rior y el incremento del mes. Una 
vez introducidos todos los datos, 
se comienza el proceso interno. 
Los datos de salida serán los reci¬ 
bos de sueldo con los nombres de 
cada empleado, las deducciones 
que le correspondan y las horas 
extras si las hubiera. 

La pregunta evidente es, cómo 
procesa la computadora todos es¬ 
tos datos. Es más cómo hace la 
misma computadora para hacer 
miles de procesos distintos con la 
misma rapidez y eficiencia. La res¬ 
puesta no es sencilla, quizás lo 
más importante para tener en 
cuenta para entender el funciona¬ 
miento de una computadora es el 
hecho de que es una máquina 
“programable” o sea que la fun¬ 
ción que realiza está determinada 
por el programa que tiene almace¬ 
nado internamente. 

Cómo se carga el programa, dón¬ 
de se al mace nan los datos y el pro- 
grama y cómo se procesa la infor¬ 
mación son algunas de las pre¬ 
guntas que trataremos de contes¬ 
tar dentro de esta serie de notas. 

-Para poder comprender qué es 
una computadora comenzare¬ 
mos definiendo su estructura in¬ 
terna. 


Como veremos posteriormente 
esta organización típica corres¬ 
ponde tanto a los grandes com¬ 
putadores que puedan ocupar un 
piso completo de una gran corpo¬ 
ración o bien a los que pueden 
llevarse en un bolsillo. 

Las unidades funcionales que la 
conforman son, como se ve en la 
figura 2: 

- Unidad Central de Procesamien¬ 
to (C.P.U.) 

- Memoria Principal 

- Unidades de Entrada/Salida 

La Unidad Central de Procesa¬ 
miento (CPU) tiene tresfunciones 
básicas, la de decodificar e in¬ 
terpretar las instrucciones que 
se encuentran en el programa, la 
de controlar el resto del compu¬ 
tador de acuerdo a las interpreta¬ 
ciones que surjan de dichas ins¬ 
trucciones y la de realizar las 
operaciones matemáticas y lógi¬ 
cas básicas. Verdadero cerebro 
del equipo, tomas las decisiones 


y manda el restd del equipo que 
las realiza. 

La Memoria Principal almacena 
la información necesaria para 
que trabaje el computador, ya 
sean los datos como los progra¬ 
mas que introduzcamos. 

Debemos diferenciar entre esta 
memoria principal o de trabajo, 
como se la llama a veces, de la se- 
cundaria donde también se alma¬ 
cenan datos y programas pero en 
algún dispositivo externo (disco o 
cintas magnéticas, generalmen¬ 
te), desde donde solamente pue¬ 
den ser usados por la CPU una 
vez transferidos a la memoria 
principal. Es aquí donde se alma¬ 
cena el programa que le permití 
rá a la CPU tomar las decisiones 
de mando. 

Las unidades de entrada/salida 
son el único medio por el cual el 
ser humano puede comunicarse 
con el equipo. 


INGENIERO NINO MORENO 
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PROGRAMAS 



MATEMATICA BASICA 


COMPUTADOR TI99/4A 



1 FOR A=1 TO 10 :: CALL COLORÍA,12,2):: NEXT A :: CALL CLEAR :: CALL SCREEN(2):: 
? CALL COLOR(9,12,2):: CALL CHAR(96,"OOOOOOOOFOFOFOFO"):: CALL CHARÍ97,"F0F0F0F0" 

2 CALL CHAR(98,"FFFFFFFFFOFOFOFO"):: CALL CHAR(99,"F0F0F0F0F0F0F0F0"):: CALL CHA 
R(100."FFFFFFFFFFFFFFFF"):: CALL CHAR(101,"FFOOFFOOFFOOFFOO") 

3 CALL CHAR(102."F000F000F000F000*):: CALL VCHAR(4,3,100,2):: CALL VCHAR(4,6,100 

,21:: CALL VCHAR(4,9,100,2):: CALL HCHAR(5,4.96) ’’ 

4 CALL HCHAR(4,4,97):: CALL HCHAR(3.3,9B):: CALL HCHAR(3,4,97):: CALL HCHAR(5,5, 

96):: CALL HCHAR(3,6,9B):: CALL HCHÍR(3,7,99) ’ ’ 

5 CALL HCHAR(4,7,97):: CALL HCHAR(5.8.96):: CALL HCHAR(3,9,99):: CALL HCHAR(5,11 
.96):: CALL HCHARI2.9,97):: CALL HCHARI24,1,101.30) 

6 CALL VCHARI1.30.102.24):: A*=-EMPRESA PARA INFORMATICA" :: 8=8 :: C=3 :: 60SÜB 
9:: A*=‘PR06RAMAS PARA EL" :: 8=12 :; C=3 :: SOSUB 9 :: A*="MICROCOMPUTADOR TI 

-99/4A" 

7 B=14 :: C=3 :: 60SUB 9 :: A$="FABRICADO Y DISTRIBUIDO EN" :: B=18 :: C=3 :: 6 
OSUB 9 :: A$="LA REPUBLICA ARGENTINA POR" :: B=20 :: C=3 :: GOSUB 9 

8 A$ s "’SDT’INTELIGENCIA ARGENTINA" :: B=22 :: C=3 :: GOSUB 9 :: FOR D=1 TO 700 : 
: NEXT D :: 60T0 10 

9 FOR D=1 TO LEN(A$):: B$=SE6$(A$,D,1):: E=ASC(B$):: CALL HCHAR(B,C-1+D,E):: NEX 
T D :: RETURN 

10 CALL CHARSET :: CALL CLEAR :: C$="OOOOOOOOOOOOFFFF" :¡ CALL CHARU28.CÍ):: D$ 
="OOOOOOOOOOOOFFFF" :: CALL CHAR(136,D$):: CALL CHAR(129,"FFFF"):: CALL'C0L0R(14 

7 1)¡¡ CALL CLEAR 

Í3Ó CALL SCREENÍ16):: PRINT TAB(11);"MATEMATICA":TAB(13);"BASICA":TAB(7);" EPI 
INFORMATICA * :: PRINT : : :TAB(10);"(C) EN 1984": : :TA&(8):"BASIC EXTENDIDO" : 
: FOR F=1 TO 6 :: PRINT :: NEXT F 

170 FOR 6=6 TO 29 :: CALL HCHAR(4.6,42):: NEXT G :: FOR 6=5 TO 20 :: CALL VCHAR( 
6,29.42):: NEXT G :: FOR 6=28 TO 6 STEP -1 :: CALL HCHAR(20,6,42):: NEXT 6 :: FO 
R 6=19 TO 5 STEP -1 ¡: CALL VCHAR(6,6,42):: NEXT G 

210 FOR H=1 TO 10 :: FOR 1=1 TO 50 :: NEXT I :: CALL C0L0R(2,11,4):: FOR 1=1 TO 
100 :: NEXT I :: CALL C0L0R(2,2,4):: FOR 1=1 TO 50 :: NEXT I ::'NEXT H 
230 DISPLAY AT(2,14)ERASE ALL:"MENU" :: DISPLAY AT(4,5):"il¿ APRENDIENDO SUMAS" 
240 DISPLAY AT(6.5):"¡2¿ APRENDIENDO RESTAS " :: DISPLAY AT(B,5):"¡3¿ MIS PRIME 
RAS SUMAS" :¡ DISPLAY AT(10.5):*¡4¿ MIS PRIMERAS RESTAS" 

250 DISPLAY AT(12,5):"¡5¿ MAS SUMAS " :: DISPLAY AT(14,5)s"¡6¿ SUMANDO EN COL 
UHNAS" :: DISPLAY AT(16.5):"¡7¿ FIN DEL PROGRAMA" 

260 DISPLAY AT(22,5):"OPRIME UN NUMERO DEL 1 " :: DISPLAY AT(23,5):" AL 7 Y P 
ODEMOS EMPEZAR " :: CALL C0L0R(2,2.1) 

280 CALL KEY(O,J,K):: IF K=0 THEN 280 :: IF J<49 OR J>55 THEN 280 :: E$=CHR$(J): 
: J=VAL(E$)¡: 

290 ON J 60T0 300,530,750,1010,1250.1430,1820 

300 DISPLAY AT(10,11)ÉRASE ALL:"YA SE !" :: DISPLAY AT(12,10):"ELIGIERON* DIS 
PLftY AT(14,5):"APRENDIENDO A SUMAR" 

305 8DSUB 9000 


m 
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320 DISPLfiY ATI 6,DERASE ALL:* CUANDO SUMANOS DOS NUMEROS' :i DISPLAY AT(S,1):'VA 
«OS A OBTENER OTRO OUE ES' :: DISPLAY AT(10,1):'HAS BRANDE.' 

330 DISPLAY AT(12,1):'VEANOSLO EN UN EJEMPLO !!' :: DISPLAY AT(14,9):'1+3=4' :: 
DISPLAY AT(16,1);'ESO ! 4 ES HAS GRANDE QUE ' 

340 DISPLAY AÍUB.Ds'EL I (UNO) Y EL 3 (TRES).’ :: DISPLAY AT(20,1)¡'RECUERDA! 
LA SUMA DA COMO' ¡¡ DISPLAY AT(22,1):'RESULTADO NUMEROS MAYORES. 1 
350 C*='OOOOOOOOOOOOFFFF' :¡ CALL CHARt128,Ct):: D»='OOOOOOOOOOOOFFFF' :: CALL C 
KAR!136,D$):: GOSUB 9000 :: CALL CLEAR 

370 DISPLAY AT(2,1):'UNA LINEA DE NUMEROS NOS VA' DISPLAY AT(4,lls'A MOSTRAR 
COMO SE HACEN MAS" :: DISPLAY AT(6,1):’GRANDES LOS NUMEROS.' 

380 DISPLAY AT(ll,3):'l 2 3 4 5 4 7 8 9 10 11 12' DISPLAY AT(15,1 )j'ESTA ES U 
NA LINEA DE NUMEROS' 

390 CALL HCHARI10,5,128,28):: POR L=2 TO 6 STEP 2 :: POR TT=1 TO 1000 :: NEKT TT 
:: CALL HCHAR(L,3,32,28):! NEXT L i: CALL HCHARI15,1,32,32) 

391 GOSUB 9000 

410 DISPLAY ATI4.I)!'VEAMOS AHORA UN EJEMPLO." :: DISPLAY ATI 17,1)s'SUMEMOS 2+2 
SOBRE LA LINEA.'' 

415 CALL COLOR(14.12,1) 

419 POR 1=1 TO 300 :s NEXT I :: DISPLAY AT<14,14):"2' 

420 POR L=5 TO 7 :: FOR TT=1 TO 50 :: NEXT TT CALL HCHAR(10,L,I3¿):¡ NEXT L : 

: CALL S0UND<25,880,2) 

439 DISPLAY ATÜ4,15):'+' :: CALL SAYCAND’ls: DISPLAY AT(14,16)!'2' :: CALL SAY 
(’TNO'i 

440 POR L=8 TO 11 :: POR GG=I TO 50 :: NEXT GG :: CALL KCHAR(10.L,136):: NEXT L 

.. TAI I Qniiwrw^ QQfl *)\ ‘ 

460 DISPLAY ATÍí 4. 17?i:: DISPLAY ATÜ4.18):"4" :: FOR L=1 TO 10 :: FOR 1=1 T 
O 50 :: NEXT I sj'CALL HCHARí14,20,32):s FOR 1=1 TO 50 
465 CALL COLOR(14,7.1) 

480 NEXT I ¡• CALL HCHARI14.20.52):: FOR 1=1 TO 50 :: NEXT I :: NEXT L :: CALL C 
LEAR :: DISPLAY AT(16,1>:"LO VE! LA SUHA HACE NUMEROS" 

481 DISPLAY ATI 18,1):"HAS GRANDES !!" :: DISPLAY AT(20,1):"VAHOS AL INICIO Y ELI 
JAMOS." 

510 GOSUB 9000 :: 60T0 230 

530 DISPLAY ATI 10,11)ERASE ALL:'YA SE !' :: DISPLAY AT(12,10):"ELI6IER0N' :¡ DIS 
PLAY AT(14,5)¡'APRENDIENDO A RESTAR' 

535 GOSUB 9000 

550 DISPLAY AT(3,DERASE ALL:'CUANDO DOS NUMEROS SON' :: DISPLAY AT(5,1):'RESTAD 
EL UNO DEL OTRO’ :: DISPLAY AT(7,1):'SE OBTIENE UN NUMERO MENOR.' 

570 DISPLAY AT(10,1):*VEAHOSLO EN UN EJEMPLO !!' :: DISPLAY AT(12,9):"4-3=1' :: 
DISPLAY AT<14,1):'ESO ! 1 ES MENOR QUE EL' :: DISPLAY AT(14,1):'3 (TRES) Y EL 4 
(CUATRO)." 

590 DISPLAY ATI 18,1):"RECUERDA! LAS RESTAS" :: DISPLAY AT(20,1):"DAN CONO RESULT 
ADO" :: DISPLAY Al(22.1)¡"NUMEROS MENORES." :: GOSUB 9000 * 

600 DISPLAY AT(2.1)ERASE ALL:"VEMOS EN UNA LINEA DE NUMEOS" :: DISPLAY AT(4,1)i" 
COMO RESULTAN MENORES POR" :: DISPLAY AT(6,1):"EL HECHO DE RESTARLOS." 

602 DISPLAY AT(11,3):"1 2 3 4 5 6 7 8 9 10 11 12" 

620 DISPLAY AT(15.1)¡"ESTA ES UNA LINEA DE NUMEROS" :: CALL HCHARÜO,3, 128,28):: 
GOSUB 9000 :: FOR L=2 TO 6 STEP 2 

622 CALL KCHAR(L,3,32,28)2: NEXT L :: CALL HCHAR(15,2,32,23)!: CALL HCHARÍ15,1,3 
2,30) 

630 CALL COLOR(14.7,1) 
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650 DISPLAY AT(4.1):"VEAMOS UN EJEMPLO !!!" t: DISPLAY AT( 17,1):"RESTEMOS 5-3" 

:: FOR 1=1 Tí) 300 :: NEXT I :: DISPLAY AT(14,14):"5" :: CALL SAYCFIVE"):: CALL 
HCHAR(10,13,136) 

670 CALL S0UND(25,880,2):: DISPLAY AT(14,15):"-" :: FOR Q=1 TO 500 :: NEXT Q :: 
DISPLAY AT(14,16):"3" :: CALL HCHARUO,9,136) 

671 FOR TT=1 TO 500 :: NEXT TT 

672 FOR L=12 TO 7 STEP -1 :: FOR 66=1 TO 50 :: NEXT SS 

690 CALL HCHAR(10,L,136):: NEXT L :: CALL SOUND(25,880,2):: DISPLAY AT(14,17):"= 
" :: CALL SAYHS 1 ):: DISPLAY AT(14,18):"2" :: CALL SAY("TWO*):: FOR L=1 TO 10 : 

: FOR 1=1 TO 50 :: NEXT I 

710 CALL HCHARU4.20,32):: FOR 1=1 TO 50 :: NEXT I :: CALL HCHAR(14,20,50):: FOR 
1=1 TO 50 :: NEXT I :: NEXT L :: CALL CLEAR 

730 DISPLAY AT(16,1):"LA RESTA DA COMO RESULTADO" :: DISPLAY AT(18,1):"NUMEROS M 
AS CHICOS !" :: FOR 1=1 TO 1500 :: NEXT I :: DISPLAY AT(20,1):"VOLVAMOS AL COMIE 
NZO." 

735 60SU8 9000 :: GOTO 230 

750 DISPLAY AT(10,11)ERASE ALL:"YA SE !" :: DISPLAY AT(12,9)¡"ELIGIERON" :: DISP 
LAY AT(14,3):" MIS PRIMERAS SUMAS" :: GOSUB 9000 

770 DISPLAY AT(3,DERASE ALL:"MIS PRIMERAS SUMAS" :: DISPLAY AT(5,1):"DIME QUE E 
S LO QUE SUMARAS 1 :: DISPLAY AT(7,1):"LEE CON CUIDADO" 

780 DISPLAY AT(9,1):"1- SUMO UNO" :: DISPLAY AT(11,1):"2- SUMO DOS" :: DISPLAY A 
T(13,1):"3- SUMO TRES" :: DISPLAY AT(15,1):"4- SUMO CUATRO" 

790 DISPLAY AT(17,1):"5- SUMO CINCO" :¡ DISPLAY AT(23,1):"ELIJE UNO DE ELLOS" 

800 DISPLAY AT(19.1):*6- VUELVO AL MENU" 

810 CALL KEY(0,J,K):: IF K=0 THEN 810 :: IF J<49 OR J>54 THEN 810 :¡ E$=CHR$(J): 
: J=VAL(E$) 

820 IF J=6 THEN 230 
830 GOSUB 850 :: GOTO 770 
850 CALL CLEAR :: M=0 :: N=0 :: 0=10-J 
870 CALL CLEAR :: RANDOHIZE :: P=INTÍRND40):: Q=0 :: M=M+1 
880 DISPLAY AT(10,8):P :: DISPLAY AT(10,11):*+" :: DISPLAY AT(10.12):J :: DISPLA 
Y AT(10,15)BEEP:"=" :: R=P+J :: Q=Q+1 :: ACCEPT AT(10,17)VALIDATE(DIGIT):S :: IF 
S=R THEN 920 :; CALL SOUND(100,880,2,900,2,920,2) 

900 DISPLAY AT(12,3):"QUE PENA, NO ESTA BIEN" :: GOSUB 9000 :: DISPLAY AT(12,3): 

N » 

910 IF Q=2 THEN 930 :: DISPLAY AT(12,3):"POR FAVOR,INTENTA NUEVAMENTE" :: GOSUB 
9000 :: DISPLAY AT(13,1):" 

911 GOTO 880 

920 DISPLAY AT(12,3):"ESO ESTA BIEN !!! " :: GOSUB 9000 :: IF M=5 THEN 980 E 

LSE 870 

930 N=N+1 :: CALL HCHAR(5,3,128,28):: DISPLAY AT(6,1):"O 1 2 3 4 5 6 7 8 9 10 11 
12" :: IF P=0 THEN T=3 ELSE T=P*2+3 

935 CALL COLOR(14,12,1) 

936 FOR 66=1 TO 300 :: NEXT 66 

940 FOR 6=T TO JI2+T :: FOR RR=1 TO 50 :: NEXT RR :: CALL HCHAR(5,G,136):: NEXT 
G :: FOR L=1 TO 10 :: DISPLAY AT(10,16):R :: FOR 1=1 TO 50 :: NEXT I 

(CONTINUARA EN EL PROXIMO NUMERO) 
Programa realizado por Ep¡ 
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TEXAS INSTRUMENTS 
MICROCOMPUTADOR 
TI-99/4A 


DESCRIPCION 
DE LOS 
LENGUAJES 
DE 

PROGRAMACION 


TI BASIC 

Con su TI Personal Computer Ud. 
tiene la ventaja de tener incorpo¬ 
rado el lenguaje TI BASIC, que 
otros sistemas no lo tienen. Para 
adquirirlo deben abonar un adicio¬ 
nal, y cargarlo dentro de la máqui¬ 
na cada vez que lo necesite. 

El TI BASIC es un lenguaje de pro¬ 
gramación totalmente versátil di¬ 
señado para hacer más fácil la 
realización de programas. 

Por su potencia y precisión Ud. 
puede aplicarlo a una gran varie¬ 
dad de problemas, aunque sea 
uno de los lenguajes más fáciles 
de aprender. 

El TI BASIC incluye: 

• Variables alfanuméricas hasta 
255 caracteres. 

• Arreglos de tres dimensiones 
numéricas o alfanuméricas. 

• Edición de líneas de programas. 

• Capacidad de renumeración de 
líneas.. 

• Nombre de variables hasta 15 
caracteres. 

• Mensajes de error sobre panta¬ 
lla. 


• Set completo de caracteres 
standard. 

• Potentes herramientas de de¬ 
puración de programas. 

TI EXTENDED BASIC 

El TI EXTENDED BASIC ofrece la 
misma versatilidad, precisión y fá¬ 
cil operación que el TI BASIC. 
Este lenguaje más potente y veloz, 
le da a su TI-99/4A un número im¬ 
portante de capacidades adicio¬ 
nales como: 

• Más de 40 sentencias, coman¬ 
dos, funciones y subprogramas 
nuevos o expandidos. 

• Permite líneas multisentencias, 
que dan mayor velocidad y efi¬ 
ciencia. 

• Capacidad de escribir y usar 
subprogramas. 

• Posibilidad de cargar y correr un 
programa desde otro (cambián¬ 
dolo). 

• Comandos de error. 

• ArregJos hasta siete dimensio¬ 
nes. 


ASSEMBLY TMS 9900 

En su computador personal TI-99 
/4A con la ayuda del módulo EDI- 
TOR/ASSEMBLER, el SISTEMA 
P-UCSD, o el módulo de comando 
MINI MEMORY, Ud. puede escri¬ 
bir programas én el potente Len¬ 
guaje Assembly del Microproce¬ 
sador TMS 9900. 

Este es el más rápido, el más efi¬ 
ciente lenguaje con el que usted 
puede escribir en su microcom- 
putador, ya que está escribiendo 
directamente en lenguaje de má¬ 
quina. La comunicación a nivel de 
lenguaje de máquina, le da acceso 
a todaslascualidadesdel sistema, 
tales como sonido, voz, gráficos y 
accesos E/S (entrada/salida). Ade¬ 
más provee la mayor velocidad po¬ 
sible al microprocesador de “16 
bit” incorporado a su TI-99/4A. 

Su programa Assembly puede ser 
escrito para ejecutarse en TI EX¬ 
TENDED BASIC, UCSD PASCAL o 
por medio del módulo de coman¬ 
do MINI MEMORY. 

Para utilizar el módulo de coman¬ 
do Editor/Assembler se requiere 
del Sistema de Expansión Periféri¬ 
co,Tarjeta Expansión de Memoria, 
Tarjeta Controlador Diskette y una 
unidad de diskette. 


TI LOGO II 

TI LOGO, TI LOGO II -en castella¬ 
no-. es un lenguaje ideal de com¬ 
putación para niños y estudian¬ 
tes de todos los niveles y habilida¬ 
des, que encuentran en TI LOGO II 
excepcionalmente fácil de enten¬ 
der, haciendo de la instrucción un 
juego agradable y divertido. 

Paso a paso, el niño va descu¬ 
briendo un método de enseñanza 
que lo anima a participar e incluso 
a controlar su propio aprendizaje. 
En el modo inmediato o progra¬ 
mare el lenguaje ayuda al estu¬ 
diante a desarrollar su habilidad 
para comunicarse y permite la ela¬ 
boración de ideas a través de dibu¬ 
jos lineales (tortuga) o gráficos ani¬ 
mados (actores). 

El estudiante puede controlar la 
forma de los actores, su color, 
velocidad, dirección y posición so¬ 
bre coordenadas x/y; pudiendo 
controlar además hasta 32 acto¬ 
res, individualmente o en grupo. 
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La ‘Tortuga”, le permite al estu¬ 
diante trazar líneas hacia adelan¬ 
te, hacia atrás, a la derecha, a la iz¬ 
quierda, o girar 360°, y además 
desplazarse sin marcar su trayec¬ 
toria. 

El niño puede cambiar las líneas, 
actores y fondo de pantalla por 
alguno de los 16 colores. 

El nuevo TI LOGO II incluye: 

• Música con tres voces y un ge¬ 
nerador de ruidos. 

• Cinco actores predefinidos con 
la opción de modificarlos. 

• Doble espacio de memoria utili- 
zable. 

• Capacidad de comandar su im¬ 
presor a través de la interfase 
RS 232C. 

Aún cuando los comandos de TI 
LOGO II, están formados por sim¬ 
ples palabras en castellano que un 
niño puede entender fácilmente, 
el lenguaje también incorpora mu¬ 
chas características sofisticadas 
de programación, tales como: la¬ 
zos, niveles de decisión y recur- 
sión. 

El sistema TI LOGO II requiere el 


uso de Expansión de Memoria y 
una unidad de diskette. 


UCSD PASCAL, Versión IV.O 

El UCSD PASCAL, es un lenguaje 
de programación altamente es¬ 
tructurado, siendo más rápido, 
más lógico y sustancialmente más 
potente que el TI BASIC. 

Con UCSD PASCAL, usted puede 
escribir programas más potentes 
sobre su microcomputadorytiene 
la ventaja de poder utilizar mu¬ 
chos de los programas existentes 
en UCSD PASCAL con pocas mo¬ 
dificaciones. 

Para correr programas en el Siste¬ 
ma “P-UCSD”, programas en 
Assembly TMS 9900, necesita el 
sistema de expansión periférico, 
tarjeta expansión de memoria, tar¬ 
jeta Código “P”, tarjeta controla¬ 
dor de diskette, y como mínimo 
una unidad de diskette. Además 
los módulos y diskette que confor¬ 
man el software de aplicación ne¬ 
cesaria. 
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TI PILOT 

El TI Pl LOT es un lenguaje fácil de 
utilizar para el desarrollo y uso en 
lecciones de instrucción asistidas 
por computadoras (CAI - Compu¬ 
ter Asslsted Instruction). 

TI PILOT es ideal para los educa¬ 
dores, ya que les provee una he¬ 
rramienta adecuada para el desa¬ 
rrollo de exámenes y otros ejerci¬ 
cios en una gran variedad de áreas. 
El TI PILOTfue diseñado porespe¬ 
cialistas del CAI para ser usado 
con el TI-99/4A. 

Permite a su vez, al programador, 
acceder a instrucciones de pro¬ 
gramación, tales como actores, 
efectos sonoros, y gráficos en co¬ 
lores. 

El lenguaje requiere el sistema de 
expansión periférica, tarjeta códi¬ 
go “P”, tarjeta expansión de me¬ 
moria, tarjeta controlador de dis¬ 
kette y una o más unidades de dis¬ 
kette. 
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PROGRAMAS 


PACMAN 

Para lograr los símbolos especiales, hay que entrar 
los caracteres correspondientes en modo “G”. 


Comp.: ZXSPECTRUM 

PANTALLA Conf„- 16 K 

Cías.: ENTR 









































2 PRINT RT 15,8; FLR5H li"PUL 
Sfi UNR TECLA": PRINT RT 19,7;"Cü 
NTROLES: 5,6,7,8" 

3 IF INKEY$«"" TMEN GO TO 2 

4 LET t =0; LET 1=4: LET k=0; 
LET 9=0; LET P=0: LET 4=10: LET 
b=l5: LET C=10. LET d=15: LET 6 = 
4000: LET f =4200 

5 LET 9=9 + 1 

6 PAPER 7: CLS : BORDER 1: IN 
K 2: PRPER 7 

10 PRINT RT 0,5; 


PUNT * 


UIDRS 


100 DRTR 
,254,0,192 
55,255,255 



PODER 


COMI¬ 

DOS 


£0 PRINT 


0,31 

“ ,240 

, sow> , 255 , wo , og , o jl 
4,248,252,240,192,123,0 
110 FOR n =0 TO 7; RERD 
USR " B " + fi , X : NEXT n 


,255 

60,56,224,123,0,2 

63,63,31,0,128,22 


POKE 


120 FOR n =0 TO 7: RERD X: POKE 
USR "N" +H , X ; NEXT n 
130 FOR n =0 TO 7: RERD X: POKE 
U5R "J"+n,X: NEXT n 
140 FOR n =0 TO 7: RERD X: POKE 
USR "G"+n,x: NEXT n 
150 DRTR 0,0,3,7,15,9,31,30,0,0 
, 192,224,240,144,248,120,30,31,1 
4.4,6,3,0,0,120,248,112,32,96,19 
2,0,0 

160 FOR n =0 TO 7: RERD x . POKE 
USR "R”+n,X: NEXT n 
170 FOR n =0 TO 7: RERD X: POKE 
USR "S"+n,X; NEXT n 
180 FOR n =0 TO 7: RERD X: POKE 
USR "D"+n,X: NEXT n 
190 FOR n=0 Tü 7. RERD X: POKE 
USR "F"+n,X: NEXT n 
200 INK 5: PRINT RT 5,9; , '1' , ;RT 
5,22;;RT 19,6;"■";RT 19,25;"■ 
: INK 1 

750 LET X =1: LET y=6: LET i=4 

800 IF CODE SCREEN$ (X,y)=46 TH 
EN GO SUB 3000 

801 IF CODE SCREEN $ (X + l,y)=46 
THEN GO 5UB 3000 

802 IF CODE SCREEN $ (X,y+1)=46 

THEN GO SUB 3000 

803 IF CODE SCREEN * (X+l,y+l)=4 

6 THEN GO SUB 3000 

805 IF RTTR ÍX,y)=61 OR RTTR (X 
+ l,y)=61 OR RTTR (X,y +1í = 61 OR h 
TTR (X +1,y +1) =61 THEN Gü SUB 310 
0 

.849 INK i: PRINT RT x,y;"BN";RT 
x + 1,y;"JN" 

850 IF RTTR ía,b)=57 OR RTT.R (a 
+l,b>=57 OR RTTR (a,b+li=57 OR H 
TTR (a +1,b + 1) =57 THEN Gü TO 3400 
860 IF RTTR (a,bi=60 OR RTTR (a 
+1,b)=60 OR RTTR (a,b + li=60 OR H 
TTR (a+1,b + 1)=60 THEN GO TO 3300 
S70 IF RTTR í C , d ) =57 OF: RTTR i. c 
+ 1 , d)=57 OR RTTR íc,d+l)=S7 OP h 
TTR (C +1,d + 1) =57 THEN GO TO 345© 
S80 IF RTTR í C , d J =60 OR RTTR íc 


1020 PRINT RT x,y;" ";RT x+l,y; 

1030 IF X = 10 RND y=5 THEN LET y = 
24 

1040 IF X = 10 RND y=25 THEN LET y 

2000 IF CODE SCREEN * (X,y~l)=0 T 

HEN GO TO 201O 

2001 IF CODE SCREEN* (X+l.y-l)=0 
THEN GO TO 2010 

2005 IF INKEY $ = "5" RND y>5 THEN 
LET y = y -1 

2010 IF CODE SCREEN* (x,y+2)=0 T 
HEN GÜ Tü 2020 

2011 IF CODE SCREEN* (x+l,y+2)=0 
THEN GO TO 2020 

2015 IF INKEY * = "8" RND y<25 THEN 
LET y =y +1 

2020 IF CODE SCREEN* ÍX+2,y)=Q T 
HEN GO TO 2030 

20*21 IF CODE SCREEN* (x+2,y+l)=0 
THEN GO TO 2030 

2025 IF INKEY $ =." 6 " RND X<19 THEN 
LET X =X +1 

2030 IF CODE SCREEN* tx-l,y)»0 T 
HEN GO TO 2040 

2031 IF CODE SCREEN* <x-l,y+l)*0 
THEN GO TO 2040 

2035 IF INKEY*=-7" RND X>1 THEN 
LET X =X -1 
2040 GO TO 600 

3000 BEEP ,03,30; LET t=t+10: RE 
TURN 

3100 FOR H=20 TO 40: BEEP .02,n: 

NEXT n¡ LET p =25: RETURN 
3300 FOR n =0 TO 20: BEEP . 1, -n: 
NEXT n 

3315 PRINT RT a , b; M " ; RT a+l,b; 

3316 PRINT RT X , y ; " " ; RT x+l,y; 

3320 LET £=4000: LET X=1: LET y= 
6 

3330 LET 1 = 1-1: PRINT RT 9,2, l : 

IF 1=0 THEN GO TO 3390 
3340 GO TO 910 

3350 FOR n =0 TO £0: BEEP ,1,-n: 
NEXT n 

3365 PRINT RT c,d;" ";RT c+l,d; 

3366 PRINT RT x,y;" " ; RT x+1,y, 

3370 LET f=4200. LET X = 1: LET y = 
6 

3380 LET 1=1-1: PRINT RT 9,2; L: 

IF 1=0 THEN GO TO 3390 
3335 GO TO 940 

3390 PRPER 6: INK 0: PRINT RT 11 
,5,"*$*PRRTIQR ACABADA***": INK 
2: PRINT RT 12,2;"*TCDRS LñS UID 
RS PERDIDR5 *"': PRPER 7 

3392 INPUT "Otra partida ís/n)"; 

w * 

3393 IF w*="n" THEN GO Tü 5000 

3394 IF W*="S" THEN GO Tü 1 
3400 FÜR n=30 TO 50: BEEP ,l,n: 
NEXT n 


4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 
4053 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 
4073 

4079 

4080 

4031 

4032 
4083 

4034 

4035 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 
4213 
4219 
4f ' 


LET a=9 
LET a=3 
LET a=7 
LET b 
LET b 
LET b 
LET a 
LET a 
LET a 
LET a 
LET a 
LET 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 


.LET b 
LET b 
LET b 
LET b 
LET b 
LET b 
LET b 
LET a 
LET a 
LET a 
LET b 
LET b 
LET b 
LET b 
LET a 
LET a 
LET 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 


3415 PRINT RT a,b;" 


; RT a +1,b: 


3420 LET t =■ t +250 : LET € =4000 


3430 LET k =k +1: 
3440 GO Tü 910 

3450 - “ 

NEXT 


FOR n =30 Tü 50 

n 

3465 PRINT RT c,d¿" 


PRINT RT 9,29;K 
BEER .1,n : 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
=4000; RETURN 
4000: RETURN 
= 9 — - 


= 7 
= 6 
= 6 
= 5 
= 4 
= 3 
= 2 
= 1 

=3 
= 9 

0 
= 11 
= 12 
= 13 
= 14 
= 15 

16 
= 17 

18 

19 

20 
= 21 
= 2 

= 3 
= 4 
= 20 
= 19 
= 18 
= 17 
= 5 
=6 
= 7 
= 16 


3470 

3475 

3430 

4000 

4001 

4002 

4003 
4034 

4005 

4006 

4007 


LET t: 
LET k s 
GO TO 
LET a: 
LET a : 
LET a = 
LET b = 
LET b: 
LET b = 
LET 5: 
LET 


RT C +1 , d ; 

t +250: LET f =4200 
■k+1: PRINT RT 9,29; k 
940 

• 9. LET b = 15: 

■Q: LET b = 15 
7 RETURN 
14 RETURN 
13: RETURN 
12 RETURN 
3 RETURN 
9: 


RETURN 

RETURN 


4221 LET 

4222 LET 

4223 LET 

4224 LET 

4225 LET 

4226 LET 

4227 LET 
4223 LET 

4229 LET 

4230 LET 

4231 LET 

4232 LET 

4233 LET 

4234 LET 

4235 LET 

4236 LET 

4237 LET 
4233 LET 

4239 LET 

4240 LET 

4241 LET C =10 

4242 LET C =11 

4243 LET c=12 

4244 LET C =13 

4245 LET d=22 

4246 LET d =23 

4247 LET d =24 


LET d = 15: RETURN 
LET d = 15: RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
=12: RETURN 
11: RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
=3; RETURN 
=9: RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


= 7 
= 14 
= 13 
= 6 
= 5 
4 


= 10 

9 

3 

=2 
= 1 

10 
= 11 
= 12 
= 13 
= 14 
= 15 
= 16 
= 17 
= 18 
= 19 
= 20 
= 21 
= 22 

23 
= 24 
=2 


= 4 
= 5 
=6 
=7 
= 23 
= 22 
= 21 


+1, d ) =60 OR RTTR (c,d + i:i=60 OR h 

4303 

LET 

a =10 : 

RETURN 

4243 

LET 

C = 14 

RETURN 

TTR (C +1,d +1) =60 THEN GÜ Tü 3350 

4009 

LET 

a = 11. 

RETURN 

4249 

LET 

C =15 

RETURN 

905 INK 3: PRINT RT a,b hT 

401O 

LET 

3 =12 : 

RETURN 

4250 

LET 

C = 16 

RETURN 

a +1, b; " . 

4011 

LET 

a =13 

RETURN 

4251 

LET 

C =17 

RETURN 

906 LET fíi = 0: LET 3=9 + 1 

4012 

LET 

b = 13 

RETURN 

4252 

LET 

C =18 

RETURN 

907 IF 9>20 THEN LET 9=0 

4013 

LET 

a =14 . 

RETURN 

4253 

LET 

C =19 

RETURN 

903 INK 5: IF g=£0 RND €>4014 H 

4014 

LET 

a =15: 

RETURN 

4254 

LET 

d =23 

RETURN 

ND €<4032 THEN PRINT hT 3+1, b; "l 

4015 

LET 

a =16 

RETURN 

4255 

LET 

d =22 

RETURN 

" 

4016 

LET 

b = 12 : 

RETURN 

4256 

LET 

d = 21 

RETURN 

910 LET 6=6 + 1: LET ffi=fft + l: GO SU 

4017 

LET 

b = 11: 

RETURN 

4257 

LET 

d =20 

RETURN 

B 6 

4013 

LET 

b = 10 • 

RETURN 

4253 

LET 

d = 19 

RETURN 

912 IF P<=0 RND ni <2 THEN GO Tü 

4019 

LET 

b =9: 

RETURN 

4259 

LET 

d =18 

RETURN 

910 

4020 

LET 

a =17 

RETURN 

4260 

LET 

d = 17 

RETURN 

915 LET j =0: IF p >0 THEN LET j = 

4021 

LET 

a =18 • 

RETURN 

4261 

LET 

d = 13 

RETURN 

6 

4022 

LET 

a = 19 

RETURN 

4 262 

LET 

d =19 

PETURN 

920 INK j: RRINT RT a , b" AS" ; RT 

4023 

LET 

b = 10 

RETURN 

4263 

LET 

d =20 

RETURN 

a +1,b, "DF" 

4024 

LET 

b = 11 • 

RETURN 

4264 

LET 

d =21 

RETURN 

930 INK 3: PRINT RT C,d ; ". ." : AT 

4025 

LET 

b = 12 . 

RETURN 

4265 

LET 

C =18 

RETURN 

C +1,d ; " . . " 

4026 

LET 

b = 13 

RETURN 

4266 

LET 

C = 17 

RETURN 

931 LET n =0: LET g=g+l 

4027 

LET 

b = 12 

RETURN 

4267 

LET 

C = 16 

RETURN 

932 IF g>20 THEN LET g=Q 

4023 

LET 

b = 11 

RETURN 

4263 

LET 

d =20 

RETURN 

933 INK 5: IF 9=20 RND r>4205 fl 

4029 

LET 

b = l© 

RETURN 

4269 

LET 

d =19 

RETURN 

ND f <4274 THEN PRINT RT C + 1,d + 1, 

4030 

LET 

b =9 

RETURN 

4270 

LET 

d = 1 3 

RETURN 

■ 

4031 

LET 

b = 3 

RETURN 

4271 

LET 

d = 17 

RETURN 

940 LET r=f+l LET n=n + l GO SU 

4032 

LET 

b = 7 

RETURN 

4272 

LET 

C =15 

RETURN 

B r 

40 33 

LET 

b = 6 

RETURN 

4273 

LET 

C =14 . 

RETURN 

942 IF p < =0 RND n<2 THEN GO TO 

4034 

LET 

a = 18 

RETURN 

4274 

LET 

c =13 

RETURN 

940 

4035 

LET 

3=17- 

RETURN 

4275 

LET 

d =13, 

, RETURN 

945 LET j=0 IF p>0 THEN LET j= 

4036 

LET 

a = 16. 

RETURN 

4276 

LET 

C =12 

: RETURN 

F> 

4037 

LET 

■a =15 

RETURN 

4277 

LET 

C =11 

RETURN 

950 INK J PRINT RT c ,d,” RS";RT 

4033 

LET 

a =14 . 

RETURN 

4278 

LET 

L =10 

RETURN 

C +1 , d " D F " : INK i 

4039 

LET 

a = i 3 : 

RETURN 

4279 

LET 

C =9 : 

RETURN 


1000 IF p<=0 THEN LET p$=‘OFF" 4040 LET 
IF p<=0 THEN LET i=4 4041 LET 
1002 IF p>0 THEN LET p*=" ON". I 4342 LET 
F P > 0 THEN LET i=1 4043 LET 
1015 PRINT ÑT 3,0;t PRINT hT 3. 4044 LET 
28,P* 4645 LET 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


4280 LET 

4231 LET 

4232 

4233 
5140 


: =3 


9999 5RUE "PRCMRN" 


RETURN 
RETURN 
LET d = 15: 


C = 

_ c = 

LET C - 
LET i =4200: RETURN 
STOP 


RETURN 


K64 
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SOFTWARE 

EDUCATIVO 



A todo aquel que cree en las 
computadoras y que com¬ 
prende el impacto que tar¬ 
de o temprano causarán 
en nuestras vidas, tal vez le sor¬ 
prenda saber que la gran mayoría 
de maestros y profesores están 
completamente desinformados de 
cuanto pueden las computadoras 
ayudarlos en asistir y enriquecer la 
tarea educativa. Tal vez sorprenda 
más aúr> la activa resistencia exis¬ 
tente a la introducción en el aula 
de computadoras para la enseñan¬ 
za de las materias tradicionales. 
Aún en aquellas instituciones en 
las cuales han adquirido algunas 
máquinas, éstas han sido coloca¬ 
das en un lugar separado, con 
acceso muy restricto, y son con¬ 
sideradas como “tema aparte”, 
como “Geografía” o “Matemáticas”. 
Habría que tratar de resolver dos 
motivos: Uno es porqué existe tanta 
resistencia en los centros educa¬ 
tivos a implementar computado¬ 
ras (a cualquier escala), y segun¬ 
do, porqué se utilizan tan maT, en 
donde ya las poseen. 

Con el advenimiento de las com¬ 
putadoras personales de bajo cos¬ 
to como la CZ-1000 y las TK, no 
puede ya argumentarse el alto cos¬ 
to. Hoy en día puede montarse un 
pequeño grupo funcional, con po¬ 
co gasto, pudiéndose completar 
hastacon elementosdonadosyde 
segunda mano, como televisores, 
cables y grabadores. 
Seguramente la explicación a esto 
sea por un lado, la falta de formación 
informática en los educadores y 
por otro, la inexistencia de software 
educativo adecuado en el merca¬ 
do. 

Sin embargo, existen varios progra¬ 
mas llamados “educativos”, pero 
son en su mayoría del tipo “adivi¬ 
nanza” en una especie de enfren¬ 
tamiento maquina/alumno al que 
se intentan respuestas por el mé¬ 


todo múltiple choice. A lo mejor 
resultan atractivos una o dos ve¬ 
ces, pero resultan de poca utilidad 
para el educador o padres que de¬ 
sean usarlo en forma estructura¬ 
da y regular. 

Cuáles serán las razones de que 
casi no existan estos preciosos 
programas? Existen muchas razo¬ 
nes. Por un lado,es muy poco el ré¬ 
dito económico; no existen aún 
“software houses” que dediquen 
tiempo y esfuerzo a ello; y los 
programadores solitarios no tie¬ 
nen un medio idóneo donde hacer 
conocer su trabajo (esta editorial 
espera venir a cubrir un vacío en 
ésto). Pero el principal problema 
es la falta de autores de progra¬ 
mas, que deberían ser los mismos 
profesores y maestros los más in¬ 
dicados. 

Sin embargo, ellos tienden a ser un 
tanto conservadores y con profe¬ 
sores inseguros de usar este nue¬ 
vo medio, en primer lugar, difícil¬ 
mente podremos avanzar en los 
métodos de enseñanza. 

Qué es entonces lo que define a 
un buen paquete de software edu¬ 
cativo?. En primer lugar debe ser 
fácil de usar y entender. Sería inú¬ 
til,por ejemplo, producir un progra¬ 
ma que haga uso afull de lascapa- 
cidades gráficas de la computado¬ 
ra, o use técnicas de programa¬ 
ción avanzadas si los usuaños 
(educador o educando), no pue¬ 
den entender cómo operarlo. En 
segundo lugar, el programa debe 
enseñar o examinar sobre un tema 
por lo menos tan bien como los 
métodos ya existentes. De otro 
modo las computadoras terminarán 
arrumbadas si no pueden mejorar 
significativamente al profesor jun¬ 
to al pizarrón. En tercer lugar, los 
programas deben ser anti-errores. 
O sea, no deben abortar por causa 
de un operador inexperto que es¬ 
té trabajando con él. Es como in¬ 
terrumpir una clase brillante; se 


Kfri 


pierde todo el hilo y el flujo de la 
lección, además de la pérdida de 
tiempo. Y por último, los progra¬ 
mas deben estar perfectamente 
documentados. Debe incluir ade¬ 
más información tan simple como 
por ejemplo: como cargar el pro¬ 
grama, de que trata, para qué ran- 

B o de edades está pensado, etc. 
>ebe indicar también qué opcio¬ 
nes están abiertas al usuario y 
siempre que se pueda, cómo po¬ 
dría adoptarse el programa para 
usarse en distintas situaciones. No 
hace falta recalcar que debe ser 
estimulante y visualmente bien 
presentado. 

Los resultados que pueden espe¬ 
rarse son comprobadamente óp¬ 
timos, y no se crea que la idea es 
reemplazar al profesor ni mucho 
menos, sino que trata de poten¬ 
ciarlo con una herramienta poten¬ 
te. Todo lo que un profesor pueda 
hacer con una computadora, tam¬ 
bién podrá hacerlo sin ella pero le 
resultará más difícil y tedioso. Las 
computadoras motivan al estudian¬ 
te, ya de por sí tienen su propio 
atractivo, lo desafían a reaccionar, 
a responder, a crear, a razonar, a 
comprender. Puede vivir un mun¬ 
do de experiencias,ya que con una 
computadora pueden simularse to¬ 
do tipo de situaciones, reales o 
imaginarias, que de otro modo se¬ 
rían costosas o imposibles de re¬ 
producir en un aula. 

Solamente cuando existan gran¬ 
des cantidades de programas tra¬ 
tando en todas las áreas, y más o 
menos extensamente en cada una 
en particular, enseñando, exami¬ 
nando, ilustrando y recopilando, 
lascomputadorasemergerán de la 
seguridad de sus “Salas Reser¬ 
vadas” y obtendrán un lugar co¬ 
mún en muchas aulas. 

Cómo pueden los profesores y pa¬ 
dres encontrar lo que esté dispo¬ 
nible? Hoy en día están proliferan¬ 
do los negocios especializados só¬ 
lo en computadoras personales, 
sobre todo en el rango de las Sin¬ 
clair, Texas y Apple En ellos es 
posible pedir referencias o demos¬ 
traciones de programas educati¬ 
vos; vaya donde le dediquen el 
tiempo suficiente a su consulta. 
Otro método es observando las re¬ 
visiones de soft de las revistas es¬ 
pecializadas que normalmente re¬ 
ciben información de todo lo que 
se produce en el tema. 

No conocemos ninguna casa es¬ 
pecializada en software educati¬ 
vo en el pais, asi que a todos aque¬ 
llos que vean en esto una necesi¬ 
dad o una obligación, manos a la 
obra, a teclear! 
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POR FIN ENTRE NOSOTROS, LA 

ZX SPECTRUM 


Y por fin, suenen clari¬ 
nes, llegó de una vez por 
todas la tan anunciada 
Spectrum. Esa es la noti¬ 
cia que nos llegó a nues¬ 
tra redacción ya al cierre 
de la edición, desde Czer- 
weny Electrónica. El mo¬ 
delo que se comercializa 
es el de 48 K RAM. 

En la misma caja de la CZ 
1500 pero de color negro, 
contiene alrededor de dos 
docenas de circuitos Integrados, entre los cua¬ 
les el ya popular Z 80, la ROM de 16 K, un 
modulador de color en PAL N, y el ¡nfaltable 
ULA.Tiene también 40 teclas con repetición au¬ 
tomática, pantalla de 24 líneas de 32 caracte¬ 
res (aunque hay programas que lo extienden a 
64), alta resolución gráfica de 256 x 192, ocho 
colores programables, 16 caracteres gráficos 
fijos y 21 definibles. 

No tiene slntetlzador de sonido; sólo un gene¬ 
rador que permite controlar la altura y la dura¬ 
ción del tono en 10 octavas. El sistema de al¬ 
macenamiento sigue siendo en cassettes, pero 
muy mejorado; permite la grabación separada 


de programas, datos, bloques 
de memoria y pantallas; además 
se pueden verificar y se com¬ 
porta muy bien ante los clási¬ 
cos problemas de volumen, 
azimut, etc., de los grabadores. 
Como siempre, el manual en 
castellano que trae está bas¬ 
tante completo para el prin¬ 
ciplante. Tiene dos partes, 
una resumida para los más apura¬ 
dos y otra más extensa para los pacientes. 

La configuración del hardware de la Spectrum 
es mucho más flexible que la de los anteriores 
modelos de Sinclair, lo que hace esperar que 
seguramente aparecerán pronto en el merca¬ 
do todo tipo de periféricos de control, modens, 
etc. De momento es perfectamente compatible 
la Impresora térmica TS 2040 ó Alphacon 32. 

Sigue utilizando también el método de obtener 
las sentencias de Basic de un solo toque de te¬ 
cla y con el detector de errores de sintaxis, dos 
logros que destacaron a las máquinas Sinclair. 

Con respecto al software, ya hay mucho dispo¬ 
nible, Inclusive en castellano, y muy bueno por 
cierto. 



PERSONAL 


COMPUTER ! ii'JYiss 

. *: i :: 

ri TIR ARGENTINO s: 

ii zx-ftt ter 




El mejor club para usuarios de las más populares 


Indispensable para todo poseedor de TK 83/85, 



computadoras en nuestro país. 


CZ 1000/1500. 



Muchos beneficios y ventajas para sus socios; boletín 


-Elimina los problemas de carga de programas; filtra 



del club, descuentos, ofertas especiales, sorteos 


zumbidos, distorsiones y ruidos provenientes del grabador. 



. y mucho más. 


- Permite el encendido y apagado de la computadora por medio 





del interruptor incorporado. 



Usuarios del interior bienvenidos! 


- Posee salida auxiliar para realizar copias back up. 



Solicite mayor información al: 
Personal Computer Club Argentino CC 538 


-Led indicador de nivel. 

- Cassette patrón para calibración de azimut, con instrucciones. 



(1900) La Plata, Argentina 


ZONAS DISPONIBLES PARA DISTRIBUIDORES. 

PEDIDOS A: PERSONAL COMPUTER 46 # 998, 

(1900) La Plata T.E.: 021-213441 
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CORREO CONSULTAS 


En esta sección atendemos todas aquellas 
consultas y sugerencias que nuestros lectores 
deseen realizar. Para ello sólo debe dirigirse 
a esta redacción, sección “Consultas”. 
Pero ya se nos han adelantado algunos, que 
habiéndose enterado de la proximidad de la 
edición del primer número, nos han hecho 
llegar las primeras consultas. 


Soy un afortunado posee¬ 
dor de una ZX 81 y de una 
ZXSpectrumde48K,yqui- 
siera saber qué ventajas e 
inconvenientes tienen las 
ampliaciones de 64K pa¬ 
ra la ZX 81 y si se pueden 
cargar programas de 16K 
de Spectrum en mi modelo 
de 48K. Se puede usar la 
expansión de 16K de la ZX 
81 en la Spectrum?. 

Carlos Fernández 
San Nicolás délos Arroyos 

Como muchos saben, el 
máximo de lugares de me¬ 
moria que se pueden di- 
reccionar con el micro- 
procesador Z 80 son 64K 
(sin trucos de paginación, 
para lo cual se necesita 
más hardware). 

Esas direcciones incluyen 
las de RAM y las de ROM. 
En la ZX 81 y semejantes, 
los primeros 8Kestán ocu¬ 
pados por la ROM, y los si¬ 
guientes 8K por una “ima¬ 
gen de la ROM”, y luego, 
los 1 K ó 2K de RAM según 
el modelo. Ahora bien, al 
conectar la expansión de 
16K, se desconecta auto¬ 
máticamente la memoria 
interna para dar lugara los 
16K completos (no se su¬ 
man a los números 1 ó 2K 
existentes). 

Estos 16K quedan ubica¬ 
dos porencimadeladirec- 
ción 16K, o sea que llega 
hasta la dirección 32 K. Es¬ 
to es así porque en princi¬ 
pio Sinclair había pensado 
en lanzar una ROM más 
completa que ocupara los 
16K iniciales. Por lo que 
sabemos ésto nunca se 
concretó, pero otros fabri¬ 
cantes programaron me¬ 
morias EPROM con ruti¬ 
nas especiales de alta re¬ 
solución gráfica o con otros 
lenguajes con el Forth. 
Con las ampliaciones de 


64K ocurren unas situa¬ 
ciones particulares: los pri¬ 
meros 8K no se pueden 
usarya que comparten las 
mismas direcciones que la 
ROM,lossiguientes8Ksó- 
lo pueden accederse con 
PEEK y POKE o para al¬ 
macenar rutinas en len¬ 
guaje de máquina, y los úl¬ 
timos 48K que quedaran 
si pueden usarse normal¬ 
mente desde el BASIC. 

Si cabe algún inconvenien¬ 
te es que al usar a fondo 
una de estas memorias, se 
incrementa notablemente 
el tiempo de SAVE y LOAD, 
aumentando las probabili¬ 
dades de que después de 
largos 20 minutos de es¬ 
pera, el programa no entra 
y hay que tratar otra vez.- 
Por otro lado, no se posi¬ 
ble usar la expansión de la 
ZX 81 en la Spectrum di¬ 
rectamente. Y respecto de 
si se pueden usar progra¬ 
mas de 16K en la tuya de 
48K, no hay ningún proble¬ 
ma, lo que no funciona es 
lo contrario. 


¿Qué diferencias existen 
entre los distintos modelos 


de computadoras del tipo 
Sinclair que están apare¬ 
ciendo en Argentina/ 

Yo tengo una TS1000 con 
16Ky quisiera saber si son 
intercambiables los pro¬ 
gramas con las otras mar¬ 
cas. 

Además tengo el proble¬ 
ma de que a veces cuando 
estoy usando la máquina y 
apenas la toco se “cuelga” 
y no hay manera de que 
vuelva a arrancar, sólo vol¬ 
viéndola a apagar y pren¬ 
der. 

Humberto Maio 
Quilmes 

Los “clones” de la original 
ZX81 que existen en nues¬ 
tro país son: 

CP 200 Prológica (Brasil) 
TK82;TK83;TK85de Mi- 
crodigital (Brasil/Argentina) 
TS 1000; TS 1500 de T¡- 
mex Sinclair (E.U.A.) 

CZ1000; CZ1500 de Czer- 
weny (Portugal/Argentina) 
Las diferencias entre ellas 
son mínimas, en lo que se 
refiere a compatibilidad 
de software. Sólo hemos 
hallado que existen algu¬ 
nos programas que tienen 
lenguaje de máquinas, que 
no funcionan en la TK 85 
debido a que ésta tiene 
una ROM más extensa pa¬ 


ra la generación de lasfun- 
ciones que tiene. 
Respecto a accesorios de 
hardware, no hemos en¬ 
contrado ninguna incom¬ 
patibilidad, solo en la CP 
200, que tiene un conector 
completamente distinto en 
sus conexiones. 

La ZX 81 sólo tiene el in¬ 
conveniente en su versión 
sin expansión,que sólotie- 
ne 1K de memoria y no 
puede recibir programas 
de una TS 1000 por ejem¬ 
plo, que exceda esa longi¬ 
tud. 

Cuando indicamos en el 
encabezamiento de nues¬ 
tros programas “Compati¬ 
bles con", nos referimos 
por lo general a la TS 1000 
dandoa entender quefun- 
cionará en todas las de¬ 
más (con la ZX 81 habría 
que probar en el caso de 
programas indicados como 
de 2K, si entran de todos 
modos seguramente eli¬ 
minando partes innecesa¬ 
rias se los podría ajustar 
para que funcionen en esa). 

En el caso de compatibles 
con la ZX Spectrum, la ma¬ 
yoría de los programas que 
publicaremos lo serán tam¬ 
bién para la TS 2068. 

Tu otroproblema, esa cau¬ 
sa del falso contacto que 
ocurre en el conector de 
borde de la ampliación de 
16K. Cabe intentar varias 
soluciones; limpiarcon una 
goma de borrar tinta, las 
patitas o pistas de la pla¬ 
queta de la máquina; usar 
luego aerosol, li.mpiacon- 
tactos desengrasantes; re- 
pasarcon estaño las pistas 
para darles un poco más 
de espesor; o utilizar un 
accesorio que mantenga 
firme a la máquina junto 
con el pack. También me¬ 
jora al conectarel packjun- 
to con la impresora. 


K64 


Nombre 


SOLICITUD DE SUSCRIPCION 

Deseo suscribirme a K64 por el período de 6 meses □ laño □ desde el N°.alN° 

para lo cual adjunto Cheque/Giro Postal N°.c/Bco. 

Suscripción 6 meses A 9.- K64: Obsequiará una calcomanía 
Suscripción 1 año A 18.- K64; Obsequiará 1 Cassette con juego 
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VIDEO 
JUEGO 


en castellano 

para microcomputadoras 



• Sistema concord de 
altísima velocidad (*) 

• Instrucciones en castellano 

COMPATIBLE PARA 

• SPECTRUM 


• TK 90 



PROXIMAMENTE SINCLAIR 1000 TK 83/85 CON 
SISTEMA CONCORD Y COMMODORE 64 


PIDALOS 
EN NEGOCIOS 
DE COMPUTACION 
Y DISQUERIAS 


leo SDFi Belgrado 3896 (1210) Capital Tel. 982-0355/9645 




















































